t 

160 Ptas. 

Canarias 165 pts. 
/vlov:o -'  ,,. 
DE F/GURAS EN - 
DISTINTOS PLAN05 
D.E COLOR: L_ ', . . 
IANIMACION A TOPE/ 
" ' DISC C" N 
L S GUNDO 
:' NCO DE 
• ORIA 
DEL 128 
PONTE AL 
RENTE DE TU - , , 
HE RICO CON ' 

EL PROGRAMA 
DIRECTOR 

Reduce una 
pantalla de tamao, 
Sin perder Color, 
cuantas veces quieras 

GESTION 
DE RECIBO$ 
PROFE$1ONAL 
PAPA PCW8256 

HOBBY PBESS 
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160 ptas. (inc/uida h V.A.) 
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Ceuta y Me#lla, 155 ptas. 

Primera 
piano 
Ampliaci6n de memaria de/vfHT ingenieros. 
Impresora Pinwriler. 

 Primeros 
pasos 
Yo sabemos mover oh/eros compuestos de pixels a 
travds de varios pianos de ca/or, manipulados de 
muchas formas. Sin embargo, para dar la sensad6n 
de animoci6n y vida, falta poder borrarlos con cierto 
aiffe. 

Aparte de exp/icar uno serie de ldcn/cas y trucos 
muy importontes pora el programador en /enguaie 
mdquina, para que dicha disertaci6ns no se haga 
pesado, la hemos concretado en una rutina que es 
topaz de tomar una panta//a grSfica del Amstrad 
y reducirfa de tamafio, sin perder resoluciSn, cuantas 
veces quieras. 

ProgramAcci6n 
El 6128 t/ene, coma todo e/ mundo sabe, un 
segundo banco de memoria de 64K, el cual, par 
desgracia, no se puede usar desde Basic. Pero s/ 
puede emplearse coma disco Ram, y en el articulo as 
explicamos c6mo hacerlo. 

:" • Serie Oro 
Uno de/uegos de inteligencia y astucia, de todo 
corazSn, 
PodrSs socor tu empresa a 
f/ate 2, 

Para... PCW 

 Probamos Io m6s a rondo posible un programa de 
. gesti6n que pretende resolver, y resuelve, todos /as 
. ..  tediosos asuntos relacionados con la manipulaci6n de 
• " recibos. 
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I) No estamos para juegos / 

• • 
LO NUESTRO ES HACER BUENAS GESI"I<)NES 

• 
• 
FACTURACION. $61o teclee un c6digo y salen todos los datos del cliente. Numeraci6n correlaliva aulom6tica. Admit• 30 productos• 
distintos por factura. Autom6ticos, descuentos, cargos, IVA. Proporciona 5 totales por factura. (PoVoP. 15.300 incl. IVA.) 
PRESUPUESTOS. Guarda en memoria los presupuestos y extiende las facturas. Conceptos de 200 caracteres cada uno (3 renglones 
de escritura). (P.V.P. 18.300 incl. IVA.) 
CUENTAS, PROVEEDORES, B,ANCOS, CLIENTES. 3 ficheros separados. Res0menes totales, unitarios o parciales. El mejor 
auxiliar de CONTASILIDAD al da. (P.V.P. 8.600 incl. IVA.) 
CONTROL DE ALMACEN IVA. C6digo de 9 digitos alfanumricos. 25 digitos denominaci6n. Una sola pantalla entradas y sali- 
das, con visi6n de asientos anteriores. Stocks m0ximo, minimo y avisa para reaprovisionamiento. Tolales entradas y salidas cada panta- 
Ila. (P.V.P. 15.300 incl. IVA.) 
CLIENTES (con etiquetas). 11 campos distintos para Iocalizaci6n. Etiquetas 4 modelos distintos en salida de dos. El m6s fiel auxiliar 
ahorrador de tiempo.(P.V.P. 8.600 incl. IVA.) 
RECIBOS. Resuelve el problema interminable a asociaciones, comunidades, colegios. Fijos los campos del normalizado y 12 campos 
libres (4 numricos con c61culos autom6ticos). Liquidaciones bancos. (P.V.P. 18.300 incl. IVA.) Con numeraci6n autom6tica (21.200 incl. 
RESTAURANTES. Tratamiento de minuta y facturas. Res0menes por grupos. Mesas abiertas permonentemente, correcciones, cam- 
bios, etc., hasta emisi6n fra. final. (P.V.P. 35.000 incl. IVA.) 
IVA POR ALMACEN. Rellena liquidaciones Hacienda. Introduce cuentas IVA gastos. (P.V.P. 18.900 incl. IVA.) 
URBANIZACIONES. Lectura y tratamiento de contadores consumos (agua, gas, luz, etc.). Extensi6n recibos y totalizaciones ban- 
cos. Emisi6n etiquetas. (P.V.P. 40.000 incl. IVA.) 
LItROS DEL IVA. Controles de repercutido y soportado orden numrico. Res0menes estudios comparativos. Rellena liquidaci6n Ha- 
cienda. (P.V.P. 16.800 incl. IVA.) 
FACTURACION Y ALMACEN. Gesti6n unida. Ficheros clientes, productos, descuentos y cargos. Todos los res0menes. (P.V.P. 
18.900 incl. IVA.) 
COTIZACIONES. El mejor cuadro comparativo de precios. Le dice el mejor precio proveedor. (P.V.P. 26.300 incl. IVA.) 

1 AI  IO DE 

GARANTIA 



DSE PPESENTA 

UNA NUEVA SERIE DE 

P?ODUCTOS PARA EL DISENO 
POR ORDENADOR: 

En la gama PC po- 
demos encontrar dos nuevos elemen- 
tos que ser6n sin duda una gran ayu- 
da para el profesional del diseSo por 
ordenador. El primero de estos dos 
productos consiste er una tableta 
grcfica, la SUMMASKETCH, con 
unas dimensiones comprendidas de 
6"'9" y 12"'18", proporciona una 
precisi6n de 1.000 lineas por pulga- 
day 1/2 pulga de aproximaci6n que 
le permitir6 dibujar sobre libros, etc. 
El equipo es totalmente compatible 
con muchos de los programas de di- 
bujo, disponiblespara la gama PC. 
Como son AUTOCAD, TS-CAD GEM 
aplications, PROSIGHT y un largo et- 
ctera. 
El segundo, un rat6n el6ctrico vie- 
ne acompaSado del Gem Collection, 
un conjunto de programas entre los 

que se encuentran un potente proce- 
sodor de textos y un programa de di- 
sefio. 
En otra linea de productos presen- 
ta tambin el MACTABLET, tableta 
gr6fica de iguales caracteristicas, a 
SUMMASKETCH, pero disponible 
para el cada vez m6s popular, Ap- 
ple Macintosh. 

IUN MEGA PAPA 
TU AMSTRAD! 

On sin confirmar el 
precio, Io que si es seguro es que los 
usuarios de Am,:trad ya dispone- 
mos de una unidad de disco profe- 
sional para toda la gama CPC. 
La unidad en cuesti6n se encuen- 
tra en dos versiones, una en cinco 
pulgadas un cuarto y otra en tres y 
medio, ambas versiones soportan 
una capacidad de un megabyte de 
memoria (1.024 Kbytes). En el caso 
del 464 son dos las unidades que 
pueden ponerse, con Io que dispon- 
dremos de una capacidad de alma- 
cenamiento de dos megas. 
Las unidades han sido disefiadas 
por VORTEX con tecnologia alema- 
na, y son distribuidas de forma ex- 
clusiva por PROMOTEC. Aunque el 
precio a0n se desconoce, fuentes de 
Protomec nos han asegurado que 6s- 
te va a ser verdaderamente compe- 
titivo y siempre respetando la linea 
de precios marcada por los produc- 
tos Amstrad. 
PROTOMEC se encuentra en: Av- 
da. de la Constituci6n, 260. Torrej6n 
de Ardoz (Madrid). Tel. 675 75 99 

ANTA 64 K.3 

Ya est6 disponible 
en el mercado la nueva ampliaci6n 
de memoria de 64 kbytes ANTA 64 
K.3, realizada por MHT ingenieros, 
la ampliaci6n presenta la innovaci6n 
de disponer en una rom todo el soft- 
ware necesario para el manejo de 
estos 64 k extras. B6sicamente tres 
son los usos que podemos dar a esta 
memoria: 
1.-- 64 k de memoria: podremos 
utilizarla para leer y escribir datos, 
cadenas y bloques, asf como copiar 
pantallas. 
2.-- 64 k de Buffer de impreso- 
ra: permite seguir trabajando con el 
ordenador mientras la impresora 
funciona. 
3.-- 64 k de Ramdisc: la memo- 
ria simula en funcionamiento de un 
disco, podremos salvar o cargar pro- 
gramas s61o que con un tiempo de 
acceso cientos de veces inferior. 
Naturalmente la ampliaci6n es to- 
talmente compatible con los tres too- 
delos CPC del mercado, 464, 664 y 
6128. 
El producto es distribuido por LSB 
que se encuentra en: 
S6nchez Pacheco, 78. 28002 Ma- 
drid. Tel. 413 92 68. 

NUEVA$ NEC 
PINWRITER 
P6 Y P7 DE 24 
AGUJAS 

T la aceptaci6n 
de los modelos P2 y P3, PINWRITER 
ha sacado al mercado los modelos 
P6 y P7 de 24 agujas. 
Estas impresoras ofrecen tres velo- 
cides, de 65, 80 y 216 caracteres por 
segundo. 
La P6 es de 80 columnas a 10 ca- 
racteres por pulgada (c.p.i.) y la P7 
de 136 columnas a 10 c.p.i, est6n 
provistas de un buffer de 8k y con im- 
presi6n condensada pueden imprimir 
160 y 272 columnas respectivamen- 
te. 
Pueden utilizar dnterfaces para- 
lelo y serial usando los c6digos de los 
comandos EPSON, consiguiendo un 
elevado grado de compatibilidad 
(IBM PC, XT, AT y compatibles). 
Con sus nuevos cabezales las P6 y 
P7 Iogran una resoluci6n de 
360*360 <dots>> por pulgada carac- 
teristica fundamental para realizar 
gr6ficos de gran definici6n y resolu- 
ci6n. 
Tienen 20 <fonts de tipo de letra 
residentes y 12 sets caracteres in- 
ternacionales, impresi6n it61ica, ex- 
pandida, subrayado, superindices, 
subindices y doble y triple condensa- 
do de anchura de impresi6n. 

,ICOOB AMSTRAD 5 



Presenta: el universo del software, 

La mJs moderna base de datos 
D,,ELTA, su,p,e, rJndose a s[ misma, 
DELTA 4-; desarrollada para 
CP/M por COMPSOFT con todo 
en espaol. 
Disefia sus propios ficheros," des- 
de un simple fichero de nom- 
bres y direcciones hasta su pro- 
pio sistema contable. El formato 
standar DIF permite intercam- 
biar datos en DELTA, desde /as 
hojas de clculo CRACKER II, 
etc.., y viceversa. Intercambio de 
datos con la mayoria de los tra- 
tamientos de texto como NEW- 
WORD para MAILING. 
Incluye un sencillo y funcional 
sistema de impresi6n de etique- 
tas con." hasta 5 columnas de eti- 
quetas, 65 caracteres por etique- 
tas, 20 lineas con 3 campos cada 
una. 
• PROGRAMABLE Y RELACIO- 
NAL. 
• FICHEROS INDEXADOS. 
• HASTA 90 CAMP05 6 2000 
CARACTERE£ 
• MULTIPLES SISTEMA5 DE BUS- 
QUEDA, 8 CLAVE5. 
• FICHEROS DE HASTA 8 Mb. 
• 8CRUPOSDETRANSACCION 
POR REGISTRO. 

BA5£ 
DE DAT05 

17.850 pts. 

Programa de tratamiento de tex- 
Los mejorando todo Io anterior. 
Manual y programa en espafiol, 
que le ensefiarJn con facilidad y 
rapidez Io mJs avanzado en pro- 
cesadores de textos. Compatibi- 
lidad funcional con WORDSTAR 
incluyendo muchas capacidades 
adicionales. 
Tiene un potente MAIL-MERGE 
con opci6n de selecci6n de des- 
tinatarios por criterios base de 
datos, creaci6n de documentos, 
impresi6n de etiquetas. Utiliza 
todo el espacio de disco. Ensam- 
blaje de textos, sustituci6n, etc., 
de la forma mJs fcil." autohace 
copias de seguridad, iNUNCA 
PERDERA UN TEXTO! 
• , ACENTOS, DIERESIS, ETC... 
• PRESENTACIONEXACTAENPAN- 
TALLA DEL FUTURO DOCU- 
MENTO IMPRESO. 
• INTERCAMBIOSDEFICHEROS 
CON CRACKER. 
• VARIABLES SUSTITUfBLE5 EN 
IMPRESORA. 
• POTENTE CALCULADORA. 
• COMPROBADORORTOGRA- 
FICO Y CRAN DICCIONARIO 
(45.000 TERMINO5 AMPLIA- 
BLE5). 
• POSIBILIDAD DE LECTURA DE 
FICHEROS DE DELTA, CARD 
BOX, 5UPERCALC, DBASE II, 
ETC... 

TRATAMIENTO 
DE TEXTOS 

17.850 pts. 

EDITOR Y DISTRIBUIDOR EXCLUSIVO PARA ESPAIA 

El CRACK de las hojas de cJlcu- 
Io, la que deja detrSs al resto. 
Funciones nunca vistas, forma- 
teo de fechas, salvaguardia con- 
tinua sobre un fichero. Realiza 
' autom&ticamente copias de se- 
guridad. Adems de las tradicio- 
nales funciones, CRACKER II 
posee funciones 16gicas, estadis- 
ticas y de alta matemktica. Inter- 
cambia datos con NEWWORD, 
bases de datos y la mayoria de/as 
hojas de cJlculo. 
• CELDAS PROGRAMABLES. 
• FUNCIONES ESPECIALES: 
Fecha, dias; desde y basra/a fe- 
cha de la semana, del a6o, /apso 
de tiempo, retraso, beep entra- 
da, saludo usuario. 
• SISTEMA DEAYUDA ON-LINE. 
• SUMA CONDICIONAL. 
• TOMAR DECISIONES EN LA 
HOJA. 
• 18 MODOS GRAFICOS DIS- 
TINTOS. 
• TRADICIONALESFUNCIONE5 
MATEMATICA5 YAMPLIACION, 
FUNCIONES ESTADISTICAS Y 
L OGICAS. 
• GENERA GRAFICO5 EN BASE 
A L 05 DAT05. 

HOIA 
DE CAI CUI O 

17.850 pts. 
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NUCLEUS m#s que una estrella 
una constelaci6n; tres ESTRELLA5 
en un 5UPERPROCRAMA, la so- 
[uci6n a cualquier aplicaciOn por 
compleja que sea, NUCLEUS es 
CENERADOR DE PROGRAMAS, 
BASE DE DAT05 Y CENERA- 
DOR DE INFORMES. 
Toda la informaci6n es multi-in- 
tercambiable y de libre acceso 
por cualquiera de los demos 
Pbrosramas. Asi los datos de la 
ase [os condicionamos y utili- 
zamos en el generador de pro- 
gramas y los imprimimos a tra v@s 
del 8enerador de informes. 
• CENERADOR DEPROGRAMA5 
EN MALLARD BASIC. 
• CREACION DE BASE5 DE DA- 
TO5 RELACIONALES. 
• CENERADOR DE INFORMES. 
• DISEiADOR DE FORMAT05. 
• DI5EIADOR DE PANTALLAS. 
• CODIGO FUENTE DE LIBRE 
ACCESO Y LIBRE DE ERROR. 
• DISE/A 5U PROPIO 515TEMA. 

• MAILMERGE. 

La revoluci6n del pensamiento, 
BRAINSTORM es un programa 
que piensa con Vd. 
El compafiero ideal para el em- 
presario, director o cualquier 
persona que tenga que planifi- 
carse o tomar decisiones. 
BRAINSTORM es la ayuda nece- 
saria para su organizaci6n. El 
programa que se ha standariza- 
do en Inglaterra, tan necesario, 
(til y popular como una base de 
datos o un tratamiento de textos. 
• ORGANIZA POR RANG05. 
• ACCESO DESCENDENTE POR- 
MENORIZADO. 
• PLANIFICACIONA NIVEL DIA. 
• DECI51ONE5A LARGOPLAZO. 
• REVI510N DE PROBLEMAS. 
• 51MULTANEIZACION DE TA- 
REAS. 
• PROCE50 TOP/DOWN. 

Piii... su ordenador le comunica: 
la revoluci6n de/as comunica- 
ciones, de la mano de OFITE5 
INFORMATICA, Ilega a Espafia. 
El nuevo mundo de las comuni- 
caciones digitales Io tiene a su 
disposici6n, las redes de transmi- 
si6n electr6nica digitalizada, con 
su PCW 8255 o PCW 8512 a tray,s 
de un interface R5 232-C con 
otros ordenadores, redes de trans- 
misiOn de datos, etc..., Vd. podr# 
enviar o recibir ficheros de texto 
o de datos, ASCII, etc..., creados 
por NEWWORD y otros... 
• TRANSICIONE5 DIRECTA5 EN 
RED. 
• COMPATIBILIDADCONNEW- 
WORD. 
• PO51BILIDADE5 DE TRAN5MI- 
5lONE5 VIA MODEM, RED 
TELEFONICA. 
• COMUNICACIONIN5TANTA- 
NEA. 

GENERADOR , 
DE PROGRAMA5 

26.780 pts. 

OR GA NIZA D OR 
DE IDEA5 

17.850 pts. 

COMUNICA CLONES 

17.850 pts. 

OE VENTA FN LOS MEJORES COMERCIOS DE INFORMATICA 
Si Vd. tiene alguna dificultad para obtener los programas, puede 
dirigirse a: 

Ofites 
Inform  tica 

Avda. Isabel II, 16 - 8 ° 
Tels. 455544 - 455533 
Tlex 36698 
20011 SAN SEBASTIAN 

CONDICIONES ESPECIALES PARA DISTRIBUIDORES 



AND A HORA LO 
VE$, OR AHORA 
NO LO 

Vireos en el articulo anterior ¢6mo se podian crear 
f6cilmente im6genes compuestas par var.ios 
pianos de color empleando el operador 16gco OR. 
Con un poco de imagina¢i6n podemos colocar un 
objeto delante, detr6s o entre otros dos. Es cosa 

de poner rnanos o la obro y comenzar. 

n nuestra OItima reu- 
ni6n aprendimos a colocar cualquier cosa en 
la pantalla. Ahora vamos a intentar ver la ma- 
nera de borrar, o hacer desaparecer, uno de 
los objetos dibujados anteriormente. 
Despu6s de todo, si podemos colocar un di- 
bujo encima de otro deberiamos ser capaces 
tambi6n de borrarle para que aparezca de 
nuevo Io que habia debajo. La diferencia en- 
tre una cosa y otra radica en dibujar un obje- 
to sabre otro, borrando Io que hubiera ante- 
riormente, o utilizar otro mtodo mucho m6s 
sutil que consiste en anotar la Forma previa del 
dibujo. 
Antes de centrarnos en estas tcnicas, va- 
mos aver qu es Io que ocurre cuando dibu- 
jamos normalmente. 
El programa 1 utiliza la subrutina que co- 
mienza en la Iinea 160 para ir construyendo 
los distintos cuadrados. El primero Io colorea- 
mos con la pluma 1 (PEN 1) y el segundo con 
la 2. AI poner nuestro ordenador en Modo O, 
autom6ticamente les estamos asignando las 
tintas de color amarilla y cyan brillantes - 
ngmeros 24 y 20 respectivamente. 

Progromo uno 

Los cuadrados est6n ligeramenle solapados 
y adem6s dibujados con una pluma gr6fica 
normal. Pero, sin embargo, esta vez no hemos 

usado el PRINT CHRS (23) que has encontra- 
mos en la Oltima ocasi6n. 
El cuadrado cyan aparece encima del ama- 
rillo solamente porque Io dibujamos despu6s. 
El Programa hace un alto al Ilegar a la Iinea 
110 esperando que pulsemos una tecla para 
salir del WHILE... WEND. 
A continuaci6n, el programa intenta borrar 
el cuadrado cyan para volver a dibujarlo con 
el color del fondo empleando la pluma O- azul, 
tinta nOmero 1. Pero ahora tenemos menos 
6xito. Observa que desaparece un trozo del 
amarillo, justamente en la zona donde ocurre 
la superposici6n. 
Lo que tenemos que sacar en clara de Io an- 
terior es que, si empleamos la pluma de grc- 
ficos de un modo normal, el ordenador no re- 
cuerda qu6 color habia dejado del cuadrado 
cyan. Cuando salimos del bucle WHILE... 
WEND, pulsando una tecla, todo el 6rea ocu- 
pada par el segundo cuadrado se dibuja de 
nuevo usando esta vez la pluma O. Par Io tan- 
to tambi6n iluminaremos con esta pluma un 
trozo del cuadro amarillo. 
Para dotar al micro de una especie de me- 
maria que recuerde el color primitivo de ca- 
da cuadrado necesitamos utilizar la funci6n 16- 
gica OR. Vamos a modificar el programa uno 
aadiendo la linea: 
3O PRINT CHR$ (3); CHRS 
Ahora se dibujan de nuevo los dos cuadros, 
pero esta vez utilizamos para ella la funci6n 
OR. Observe que cuando se solapan, apare- 
ce en esa zona un tercer color: rojo. 
Si fue siguiendo todo Io que dijimos en nues- 
fro gltimo articulo, seguro que no encuentra 
ninguna dificultad para comprender par qu 
sale ahora el color rojo. 

8 ¢COHOr AMSTRAD 



El cuadrado amarillo es el que aparece en 
primer bgar y como estamos h(:ciendo un OR 
con la pluma 0 -rondo azul- su color no se 
alter(:. Recuerde que 1 OR 0 es 1. Del mismo 
modo, cuando el cuadro cyan hace un OR con 
el fondo tambin continOa siendo de color 
cyan. 
Pero la zona donde se solapan ya es <hari- 
na de otro costab. Ahora estamos haciendo 
un OR de I(: parte superior izquierda del cyan 
con la inferior derecha del amarillo. 
Con un OR entre las plumas 1 y 2 resulta 
que la parte donde hay superposici6n se co- 
Iorea utilizando la plum(: 3. Y es asi porque 
un OR 2 nos da como result(:do 3. Como la 
plum(: 3 est6 Ilena de color roio brillante no 
cabe duda que el solapamiento de los cu(:dra- 
dos aparecer( de este color. 
Ahora bien, realmente no queremos que salo 
ga el ro o en la pantalla. Qu lata! Vamos 
a deshacernos de  c(:mbiando el color de tin- 
ta de la plum(: 3. Comprubelo (:adiendo: 
40 INK 3,20 
al programa 1. 
Ahora, cuando ejecutemos el prorama nos 
encontraremos con que la parte ae los cua- 
drados que est6 superpuesta permanecer6 co- 
Ioreada con la pluma 3, pero en esta ocasi6n 
est6 Ilena de tinta cyan brillante. Con ello con- 
seguimos dar la sensaci6n de que el cuadro 
cyan est( sobre el amarillo. Si quiere, puede 
invertir el proceso Ilenando la pluma 3 (PEN 
3) con tinta amarilla usando: 
INK 3,24 
Si este comando se Io da al ordenador di- 
rectamente (o sea, sin nOmero de linea), ver 
que el cuadro amarillo se coloca de repente 
sobre el azul. 
Un lector observ(:dor se habr6 dado cuen- 
ta de que despus de aadir las lineas 30 y 
40 al programa 1 parece que no ocurre na- 
da cuando pulsamos una tecla. La causa es 
queen esta ocasi6n hemos usado el OR 16gico. 
Cuando hayamos salido del bude de retar- 
do de I(: linea 110, el programa va a Ilamar 
a la subrutina encargada c]e dibujar otra vez 
el segundo cuadrado. Pero ahora vamos a 
emplear para ello el OR 16gico y la pluma O. 
Si hacemos un OR de cualquier nOmero con 
O, el resultado ser6 el propio nOmero -1 OR 
es 1,0 OR es O- asi que como empleamos 
m sma pluma que antes, para dibujar el segun- 
do cuadro, el color resultante es tambin e 
mismo, de modo que p(:rece que no se ha ex- 
perimentado ningCn cambio. 
H(:sta el momento usando el OR 16gico no 
hemos hecho nada que no pudiramos con- 
seguir utilizando por defecto la 16gica normal. 
Volvamos a nuestro problema original que 
consistia en borrar el cuadro cyan para que 
parezca entero el amarillo. Seria convenien- 
te ver sin prisa las plumas que hemos utiliza- 
do para dibujar en cada una de las partes de 
la pantalla. La figura I nos va a dejar claro 
todo Io que necesitamos saber. 

01 
(pen 

(pen 3) |0 
(pen 

O0 
(pen O) 

Figura 1 : Dos cuadrados hacen OR en 
pantalla. 

Veamos. El color del fondo se dibuja con la 
pluma O, O0 en binario. El cuadro amarillo tie- 
ne pluma 1, 01 en binario, mientras el cyan 
est( coloreado con la 2, 10 en base dos. La 
parte superpuesta aparece del color de la plu- 
ma 3 (11). Lo vemos en cyan por el cambio 
de tinta que hay en la linea 40. 
Si Io piensa un poco detenidamente, com- 
probar6 que p(:ra borrar el cuadro cyan y 
mantener intacto el (:marillo necesitamos rea- 
lizar dos operaciones. La zona que estaba so- 
lapad(: ha de volverse am(:rill(: para comple- 
t(:r el cuadro amarillo, mientras que el resto 
de la figura cyan se volver6 azul para confun- 
dirse con el fondo. Hay dos maneras de con- 
seguirlo. 
El primer mtodo es cambiar las tintas de las 
plumas 2 y 3 a azul y amarillo respectivamen- 
te. Seguramente ahora ya estamos capacita- 
dos par(: hacerlo por medio del comando INK. 
Sin embargo puede resultarnos un poco com- 
plicado y sobre todo bastante ant econ6mico 
utilizar dos plumas Ilenas de tinta del mismo 
color. Seria mejor emplear los ,<colores 16gi- 
cos para conseguir el mismo resultado. 
La forma de hacerlo es exactamente la mis- 
ma, componer los colores que necesitamos, 
pero utilizando ahora la <<16gica. Vamos a 
aplicar funciones 16gicas que pasar6n I(: zo- 
na dibujada con pluma 2 (cyan) a pbma 0 
(azul) y la superpuesta, que est6 con la 3 
(cyan), a la 1 (amarillo). 
Conseguimos el mismo resultado que antes, 
pero ahora no perdemos el tiempo c(:mbian- 
do las tintas de I(:s plumas. Empleamos un m- 
todo de dibujo que usa las funciones 16gicas 
para elegir una pluma que ya tuviera la tinta 
del color que necesit(:mos. En este caso la fun- 
ci6n AND har6 el trabajo por nosotros, como 
veremos enseguida. 



La pregunta que nos hacemos es: icon qu 
numero habr6 que hacer un AND para obte- 
ner el resultado correcto en la pantalla? Si exa- 
mina la tabla del AND 16gico, que publicamos 
en el articulo anterior, encontrarc varias com- 
binaciones de nOmeros que nos dan la solu- 
ci6n correcta. Por ejemplo, 2 AND 1 da 0 (10 
AND 01 es 00), mientras que 3 AND 1 se con- 
vierte en 1 (11 AND 01 dar 01) que es exac- 
tamente Io que buscamos. 
Por la tabla ver que los n0meros 1, 5, 9 
y 13 nos proporcionan los resultados desea- 
dos. Si paso estos n0meros a su representa- 
ci6n binaria no tendr6 dificultad en ver por qu6 
ocurre asi. La Tabla 1 nos muestra estos n0- 
meros decimales y sus equivalentes en bina- 
rio. 

Decimal Binario 
1 0001 
5 0101 
9 1001 
13 1101 

Tabla 1: Equivalencias de decimales y 
binarios. 

Observe que los dos Oltimos bits -bits 0 y 
1 contados a partir del que est6 m6s a la 
derecha- son siempre iguales. Hemos hecho 
un AND de estos n0meros con las plumas 2 
0010) y 3 (0011), por tanto realmente s61o 
emos utilizado los bits 0 y 1. El 2 y el 3 pue- 
den ser ignorados, ya que cualquiera que sea 
el valor que contengan, al hacer AND con los 
0 de los bits correspondientes en las plumas 

rio WHILE INKEY$ "":WEND 
20 color 0 
130 x-250:y 25<) 
140 GOSUB 160 
150 END 
160 REM DIBUIAR CUADRADO 
170 MOVE x  y 
ISO FOR banda i TO 25 
190 MOVER 4-i00 
200 DRAWR O, lO0color 
210 NEXT banda 
220 RETURN 

2 y 3, se convertir6n tambi6n en 0. El resulta- 
do va a ser el mismo empleando cualquiera 
de los cuatro ngmeros anteriores. 
Tambi6n habr que sustituir la 3, que est6 
Ilena de cyan, por la 1 (amarillo brillante) para 
asegurarnos que el cuadro amarillo queda 
completo. Hacemos un AND de la pluma 1 
(01) con 3 (11) para Iograr por fin la 1 que 
es, por supuesto, de color amarillo brillante. 
El Programa 2 nos va a ensear c6mo funcio- 
na toclo esto en la pr6ctica. 

Programa dos 

Despu6s de dibujar los dos cuaclraclos espe- 
ra a que pulsemos una tecla antes de borrar 
el cyan. Vercs que el amarillo vuelve a apa- 
recer con toda normalidad. Si pulsamos otra 

I0 REM PROGRAMA II 
20 MODE 0 
30 INK 3,20 
4(; col or-I 
50 cl ave=3 
60 x=20C): y-300 
70 GOSUB 210 
80 color 2 
90 c I ave=3 
I00 x 250:y=250 
i lO GOSUB 210 
12(I WHILE INK'EY$ .... :WEND 
13A col or-I 
 40 c1 ave 2 
150 x 250:y-250 
60 PRINT CHR$(23)ICHR$(2): 
170 GOSUB 210 
180 WHILE INKEY$="":WEND 
190 GOTO 80 
200 END 
210 REM DIBUJAR CUADRADO 
220 PRINT CHR$ 
230 MOVE x , y 
240 FOR banda=l TO 25 
250 MOVER 
260 DRAWR O 100 col or 
270 NFXI 
280 RETURN 

vez cualquier tecla se vuelve a dibujar el cua- 
dro cyan. Y esta secuencia se va a repetir ca- 
da vez que presionemos uno tecla. 
El programa emplea el OR 16gico para co- 
Iocar los dos cuadros en la pantalla usando 
la pluma 1 para el amarillo y la 2 para el cyan. 
La tinta de la pluma 3 se cambia a cyan para 
que ste sea el color de las zonas que se su- 
perponen. 
Despu6s la linea 110 detiene la ejecuci6n 
hasta que pulsemos una tecla. Cuando Io ha- 
cemos, elprograma va hasta la subrutina de 
la linea 210 que nos va a dibujar otra vez el 



segundo cuadrado. Pero ahora, sin embargo, 
usamos la pluma 1 con el AND 16gico. El re- 
sultado obtenido ser6 el que nos muestra la 
Figura II. 

(pen 1) 
01 
(pen 1) 

°° 
(pen 

O0 
(pen O) 

Figura 2: Hace AND con pluma 1 (01). 

Como podr6 ver, aunque hemos seleccio- 
nado la pluma grdfica 1, el operador 16gico 
AND va a conseguir que la pluma 1 (amari- 
llo) se use para dibujar la parte del recuadro 
que est solapada con el otro, mientras que 
la pluma 0 (azul) se emplea para el resto. Por 
Io tanto, efectivamente Iogramos borrar el se- 
gundo cuadro. 
El programa espera que pulsemos una te- 
cla antes que el GOTO de la lina 190 le diga 
que regrese a la 80. 
Y ahoro dibujamos de nuevo el cuadrodo 
inferior, esta vez usando la pluma 2 y el ope- 
rador 16gico OR. El resultado que aparece 
otra vez el recuadro primitivo. Intente hacer 
un OR entre 2 y los nOmeros de pluma que 
aparecen en la Figura 2 y verd por qu6 ocu- 
rre. El programa Ilega otra vez a la IFnea 120 
y, cuando pulsemos una tecla, vuelve a bo- 
rrar el cuadrado cyan tal como Io hizo antes. 
AsF que hemos empleado la funci6n 16gica 
OR para que aparezcan las figuras en la pan- 
talla y AND para borrarlas. 
Es necesario que comprenda el hecho de 
que la funci6n AND se utiliza como una <<m6s- 
carat. Es decir, vamos a seleccionar un valor 
que con esta funci6n enmascarard, o pondrd 
a cero, los bits que no necesitemos de las plu- 
masque hay en la pantalla. 
Observe queen este 0ttimo ejemplo hemos 
usado el n0mero 1 como una <<m6scara> AND. 
La pluma 1 es, en efecto, de color amarillo bri- 
Ilante, pero, recuerde, en esta ocasi6n no le 
estamos utilizando para poner el amarillo en 
la pantalla -aunque por casualidad nuestro 
primer recuadro estd hecho con dicha tinta. 
Se emplea, simplemente, como la m6scara 
apropiada para borrar (o poner a cero)los 
bits que no necesitamos de los n0meros de plu- 
ma que ya han sido utilizados para dibujar en 
la pantalla y de esta manera dejar las plumas 
que deseeomos. 
Recordard que antes di imos que 5, 9 y 13 
tambi6n darFan resu tado. Pruebe a usarlos en 
lugar del 1 de la linea 130 y verd que el pro- 
grama act0a de la misma forma. No quere- 
mos dibujar con las plumas 5, 9 y 13, sino que 

los empleamos porque cuando hacen un AND 
con las que ya existen en la pantalla, nos da 
como resultado los plumas que necesitamos 
para conseguir los colores que queremos. 
Aunque s61o tenemos en la pantalla dos cua- 
drados que se est6n superponiendo, es posi- 
ble ampliar esta idea para poder colocar Ires 
o mds figuras. Sin embargo, Iograr esto es un 
poco mds complicado y deja menos margen 
ara la elecci6n de colores. Que no se le olvi- 
e una cosa: aunque en Modo 0 disponemos 
de 16 colores inicialmente, coda vez que use- 
mos una instrucci6n INK para cambiar un co- 
lor estamos reduciendo el n0mero de los dis- 
ponibles. 
En el Programa 1 utilizamos dos plumas, am- 
bas Ilenas co cyan brillante. Con ello estdba- 
mos reduciendo el n0mero de plumas dispo- 
nibles para emplear otros colores. 
Hemos visto que cuando tenemos s61o dos 
cuadrados necesitamos cambiar un color de 
tinta. Asi queen Modo 1 (cuatro colores) no 
podremos colocar ninguno rods debido a la li- 
mitaci6n del n0mero de colores. La primera 
pluma se usa para el fondo, la segunda para 
un recuadro, la tercera para el otro y la cuarta 
para la zona donde se produce la superpo- 
sici6n. 
De todas formas podemos disponer del Mo- 
do 0, que tiene 16 plumas, para demostrar que 
es posible colocar en la pantalla tres cuadra- 
dos coloreados que est6n superpuestos unos 
con otros y despu6s borrar uno de ellos, mien- 
tras los demds permanecen intactos. 
El Programa 3 nos muestra c6mo se hace. 
Cuando Io vayamos a ejecutar por primera vez 
quitaremos las lineas 40 a 70, de modo que 
dibuje las figuras sin cambiar los tintas. 

Programa tres 

Pulse las teclas 1, 2 y 3 para hacer apare- 
cer cada uno de los cuadrados. Los tres recua- 
dros han hecho un OR entre ellos usando las 
plumas 1,2 y 4 y como resutado de esta ope- 
raci6n 16gica aparecen en la pantalla ocho co- 
lores. 
Una vez visto esto, aada al programa las 
IFneas 40 a 70, y cuando Io ejecute acabard 
teniendo nuestros tres cuadrados con sus co- 
lores correctos. Podemos ahora borrar cual- 
quiera de ellos pulsando las teclas 1,2 y 3 en 
uni6n con Shift. 
Presionando uno de los tres nOmeros dibu- 
aremos el recuadro que queramos, mientras 
que si mantenemos pu sada Shift' y tec eamos 
1, 2 6 3 Io borraremos. 
La Figura 3 nos muestra las plumas clue he- 
mos usado para dibujar cada parte de los cua- 
drados. Son el resultado de hacer OR con las 
tres plumas grdficas, 1, 2 y 4. En la zona don- 
de se superponen los Ires cuadros necesitamos 
un OR con los Ires nOmeros para calcular la 
tinta resultante. Los funciones 16gicas pueden 
aplicarse a mds de dos nOmeros. 

Podemos asociar cada uno de los cuadra- 
dos a un bit distinto en los n0meros anterio- 
res. El bit cero, el que estd mds a la derecha 
recuerde, Io utilizamos para determinar si el 
cuadrado 1 est en la pantalla, el bit uno iden- 
tificar al segundo y finalmente el bit dos se 
referird al tercer recuadro. 
Si un bit estd activado (o tiene un valor 1), 
el cuadrado correspondiente estard visible en 
la pantalla. Sin embargo, cuando el bit con- 
tenga un cero, el recuadro se borrar6. 
Puede que encuentre un poco dificil com- 
prender todo esto. Bueno, intente construir us- 
ted mismo la Figura 3. Co a 16piz y papel y 
anote, en binario, los resu tados que vamos 
a obtener. 

001 
(pen 1} 101 
(pn 3) 
101 111 
(pen S) (pen 7) 
110 
1gO 
pen 4 

(pen 

000 
(pen O) 

Figura 3: Tres cuadrados hacen OR en 
la pantalla. 

Primero haga un OR entre el cuadro ama- 
rillo, pluma 1, con el fondo azul, pluma 0. Des- 
US haga Io mismo con el cyan, pluma 2, y 
s dos anteriores y apunte los resultados. Fi. 
nalmente haga un OR entre el cuadrado blan- 
co, pluma 4, y todo Io que haya en la panta- 
Ila. Y ahora analicemos todas nuestras notas. 
Podrd ver c6mo el bit <uno, el segundo por 
la derecha no se activard con cualquier super- 
posici6n. $61o Io hard -tomar6 el valor 1- 
cuando el segundo cuadrado e;t en la pan- 
talla. Del mismo modo el bit <doss no Io hard 
hasta que el tercer recuadro haga su apa- 
rici6n. 
Para borrar cualquier cuadrado todo Io que 
hay que hacer es poner a <cero el bit corres- 
pondiente utilizando la m6scara apropiada 
y aplicar despus el AND 16gico. En e/Pro- 
grama 3 hemos usado 6 (110) como mdscara 
para borrar el recuadro amarillo, 5 (101) co- 
mo la que borra el cyan y 3 (011) para ocul- 
tar el blanco. 
Intente confeccionar su propia versi6n de la 
Figura 3 con Idpiz y papel probando borrar 
sucesivamente cada uno de bs cuadrados por 
medio de sus respectivas mdscaras AND. Ya 
verd c6mo enseguida coge el (truquillo y ve 
f6cilmente su funcionamiento. 
Y todavia es posible dibujar un cuarto cua- 
drado y que nuestro programa funcione. Uti- 
lizoremos el bit <tres para representar este 
cuarto recuadro, de modo quela tinta mds in- 
dicada para hacerlo es la 8 (1000 en binario, 
cyan), aunque podemos cambiar el color asig- 
nado a esta tinta para no confundirla con el 
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cyan brillante que hemos empleado hasta 
ahora. 
Le dejamos que intente modificar el Progra- 
ma 3 para que trabaje con cuatro cuadrados. 
Recuerde, con OR aparecen los recuadros en 
la pantalla, despus AND los borrar6 usan- 
do la mOscara apropiada. 
Hasta ahora s61o hemos utilizado las funcio- 
nes 16gicas OR y AND. Parece que nos hemos 
olvidado de la pobre XOR. Sin embargo, XOR 
tiene una propiedad muy importance, como 
poclr6 ver con el Programa 4. 

 0 fd..M PRoGr<AMA I I I 
?0 MODE 0 
30 RFN CAMBI(I DC 
40 INk' 
50 INK 
6,) IN" 6,26 
70 1NK 7,26 
AO Rf-N IDENIFICACION TCLAS 
90 WHILE -I 
100 IF IHKEY(64) 0 THEN [OSIJB 
110 IF lNKEY(65)-O THEN GOBUB 250 
120 IF IN'FY(57)= THIN OSLl< 310 
130 IF INKEY(64) 2 THEN GOBUD 370 
140 IP INFEY(6b)=32 IHEN GOSUB 40 
150 IP INKEY(57) 2 THEN GOSUB 490 
160 WEND 
170 END 
80 REM DIBUOAR CUADRADO 
190 color I 
200 cl ave=3 
210 x-200:y-300 
220 GOSUB 540 
230 RETURN 
240 REM DIBUOAR CUADRADO 
250 col or-2 
260 cl ave=3 
270 x 250:y 275 
2S0 GOSUB 540 
29O RETURN 
300 REM DIBUgAR CUADRADO 3 
310 color 
320 clave 3 
330 x=225:y=225 
340 GOSUB 540 
350 RETURN 
360 REM BORRAR CUADRADO 
370 olor 6 
380 x=200:y=300 
390 I ave=2 
400 GOSUB 540 
410 RETURN 
420 REM BORRAR CUADRADO 2 
430 olor 5 
440 x 250:y275 
450 lve 2 
460 GOSUB 540 
470 RETURN 
480 REM BORRAR CUADRADO 3 
490 oI 
500 x 225:y225 
510 I ave-2 
520 GOSUB 540 
30 RETURN 
540 REM DIBUOAR/BORRAR CUADRADO 
GID8 
550 PRINT CHR$(23):CHR$(Ive): 
560 MOVE x. y 
570 ROR band=l 0 25 
580 MOVER 
590 DRAWR O, lO0,olor 
600 NEXT honda 
610 RETURN 

Programa cuatro 

Dibuja un cuadrado con pluma 1 (amarillo 
brillante). A continuaci6n el programa espe- 
ra a que se pulse una tecla para borrarlo. Pre- 
sionando otra, el cuadrado se vuelve a dibu- 
jar de nuevo. El proceso se repetir6 coda vez 
que pulsemos el teclado. 

12 ,COHOr AMSTRAD 

Es una demostraci6n de c6mo funciona el 
operador XOR. Como podr comprobar, si 
hace un XOR entre el segundo nOmero y el re- 
sultado anterior, obtenemos de nuevo el 
mero original. 
Hagamos una prueba con cualquier nOme- 
ro binario y se nos aclarar6n las cosas. Si usa- 
mos 0 como nuestro primer nOmero y 1 como 
el segundo, en binario tendriamos que: 
OOXOR01 =01 
O1XOR01=O0 
Observe que hemos Ilegado otra vez al pri- 
mero. Esta regla se aplica a cualquier cifra, 
y la secuencia se volver6 a repetir sobre si mis- 
ma una y otra vez. 
Para comprobarlo puede teclear: 
PRINT nl XOR n2 XOR n2 
como comando directo sustituyendo nl y n2 
por nOmeros. El ordenador siempre le contes- 
tar6 con la misma respuesta: nl. 

10 REM PROGRAMA IV 
20 MODE 0 
30 PRINT CHR$(23);CHR$(I 
40 :;=250:y=250 
50 WHI[ E - t 
bO MOVE X ,y 
70 ;-OR banda 1 TO 25 
80 MOVER 4,-100 
9(i DRAWR O, 
tc)O NEXT honda 
1 I{i WHILE INK'EY$=" ": WEND 
I ?c) W NO 

Si se Io aplicamos a los nOmeros de las plu- 
mas siempre terminaremos con nuestro color 
primitivo. Es exactamente Io que ocurre en el 
Programa 4. Sencillamente hacemos un XOR 
entre el mismo nOmero de pluma y Io que ha- 
ya en la pantalla cada vez que pulsamos una 
tecla, y resultar6 que nuestro cuadrado apa- 
rece y desparece una y olra vez. 
En el Programa 4 s61o hemos dibujado un 
cuadro sobre el rondo de la pantalla, pero el 
XOR 16gico funciona exactamente igual ac- 
tuando sobre cualquier nOmero de colores. El 
Programa 5 nos Io demuestra trazando 16 
franias de color. 

Programa cinco 

Cuando pulsamos una tecla hacemos un 
((bi v aparecen otras 16 bandas horizonta- 
es soore las verticales que ya teniamos. Si pul- 
samos otra vez, se vuebe o hacer un XOR y 
las franjas horizontales desaparecen dejando 
de nuevo los colores originales intactos. 
La trama multicolor producida por los ban- 
das horizontales y verticales es una r6plica de 
la tabla de verdad de la funci6n 16gica XOR 
que publicamos en el articulo anterior, pero 
hemos ohora cambiado los nOmeros por co- 
lores. 
Por supuesto que cuando hacemos un XOR 
con un gnico color que cruza sobre otros va- 

rios, el resultado es una linea multicolor. Pa- 
ra conseguir un Onico color necesitamos rea- 
lizar varios cambios de tinta. Es Io que nos en- 
seffa el Programa 5 donde una banda hori- 
zontal verde cruza por encima de cuatro fran- 
jas verticales de distintos colores. 

I0 REM PROGRAMA V 
20 MODE 0 
30 FOR color=O TO 15 
40 FOR banda=1 TO 40 STEP 4 
5(I MOVE 40color+banda, 16 
60 DRAW 40(color+banda399,color 
70 NEXT honda 
80 NEXT color 
9(I PRINT CHR$ <23)  CHR$ ( 1 ) 
I00 WHILE -I 
110 FOR color=O TO 15 
120 FOR fila=1 TO 24 STEP 2 
13(I MOVE OE.99-(24color+-ila} 
140 DRAW 639399-(24*color+fila),co 
for 
150 NEXT fila 
160 NEXT color 
170 WHII E INKEY$="":WEND 
18(] WEND 

Programa seis 

El programa emplea cinco cambios de tin- 
ta, de modo que se reduce en esa cantidad 
el nOmero de colores disponibles. Si Bien es 
bastante f6cil de usar, se habr dado cuenta 
que la funci6n XOR puede resultar bastante 
rara cuando usa diversas tintas. 
Y con esto terminamos por esta semana. No 
se preocupe si no ha quedado todo Io suficien- 
temente claro con una primera lectura. La 16- 
gicm de los colores cuesta un poco de traba- 
jo si queremos utilizarla asi de entrada. El se- 
creto para Ilegar a manejarla con soltura es- 
t6 en intentar coda clase de pruebas por no- 
sotros mismos. 
Cuando le parezca que ya ha comprendi- 
do c6mo funcionan los programas, intente 
cambiarlos. C6mo podemos hacer que el cua- 
drado amarillo se coloque entre el cyan y el 
blanco en el Programa 3? 
Le dejamos muy ocupado hasta pronto. Pr6- 
ximamente nos centraremos en ver las tcni- 
cas de borrado. 

I0 REM PROGRAMA VI 
20 MODE 0 
30 FOR color I TO 5 
40 FOR banda-1 TO 40 STEP 4 
50 MOVE 40color+banda+150200 
60 DRAW 40color+banda+150s300,col o 
70 NEXT banda 
80 NEXT color 
90 PRINT CHR$(23)CHR$(1) 
lO0 INK 
110 INK 
12{) INK 1518 
130 INK B. 
140 INK 9s 
150 color 12 
1&O WHILE -I 
17(I FOR banda I TO 280 STEP 4 
180 MOVE 150+banda255 
190 DRAW 150+banda275scolor 
200 NEXT banda 
210 WEND 
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REDUCCION DE 
PANrA£LAS GRAFICAS 

Reem.pre.ndiendo la serie de programas en 
c6digo maquma, esta semana os presentamos una 
rutina muy interesante que tiene por objeto 
redu¢ir el tamao de una pantalla a su cuarta 
parte. 

I funcionamiento 
de esta rutina, se 
basa en la lectura de pantalla y el 
tratamiento que se hace de cada uno 
de los bytes que la componen. 
AI entrar en el programa se inicia- 
lizan dos punteros, uno que indica el 
inicio de la zona de pantalla y otro 
ue marca la direcci6n del buffer 
onde se guardarn los nuevos da- 
tos una vez modificados. 
A continuaci6n se encuentran dos 
bucles anidados que nos permitir6n 
acceder a cada una de las posicio- 
nes de la memoria de pantalla. 
Dentro de este bucle se encuentra 
la Ilamada a la rutina que realiza la 
funci6n de compresi6n. A cada pa- 
sada del programa por dicho bucle 
se toma un byte y se manda a la ru- 
tina que gestiona la modificaci6n de 
los octetos. 
La rutina principal de transforma- 
ci6n de bytes puede funcionar de di- 
versas formas, pero nosotros hemos 
optado por la que nos ha parecido 
m6s 16gica y oportuna, y que al mis- 
mo tiempo da un mayor realismo de 
la pantalla comprimida. 
As pues, dicha rutina toma el byte 
de pantalla y coge de 10nicamente 
la mitad de los bytes, aunque de una 
forma salteada, para de esta forma 
guardar la mayor semejanza con la 
pantalla original. 
De esta forma cada byte de la me- 
moria de pantalla nos queda redu- 
cido a la mitad. Por Io tanto ya heo 
mos reduido en la mitad la Iongitud 
de la pantalla. 
Si gnicamente hiciramos esta ope- 
raci6n, la pantalla resultante tendria 
una forma rectangular. Para evitar 

esto, Io que hacemos es eliminar uno 
de cada dos bytes que componen la 
pantalla verticalmente, con Io que 
conseguimos un gr6fico de configu- 
raci6n semejante a la pantalla origi- 
nal, pero reducida a una cuarta 
parte. 
Por fin pues, tenemos la pantalla 
que desebamos, o sea, una copia 
de la pantalla original pero reduci- 
da a su cuarta parte, Io cual quiere 
decir que la Iongitud de este nuevo 
gr6fico ser6 de 16384/4. 
Debido a la forma de tratar la 
pantalla que .osee el Amstrad, es 
necesario realizar una rutina distin- 
ta para cada modo de pantalla pues- 
to que la selecci6n de bits debe set 
distinta en cada uno de dichos 
modos. 
As pues, en modo de alta resolu- 
ci6n, es decir en modo 2, los ocho 
bits que componen un byte son indi- 
cadores de pixels encendidos o apa- 
gados, por Io tanto en este modo de 



pantalla, deberemos seleccionor 
cuatro de esos bits. 
En el modo de baja resoluci6n, o 
sea en modo 0, gnicamente son dos 
bits los que indican los pixels encen- 
didos o apagados, por Io tanto en 
este caso 0nicamente seleccionare- 
mos uno de esos dos bits. 
En modo 1, son cuatro los bits in- 
dicadores, por Io queen este caso 
elegiremos dos de esos bits. 
La rutina est6 preparada de tai 
forma que con una 0nica Ilamada 
podremos reducir la pantalla en ca- 
da uno de los modos mencionados 
anteriormente. 
De esta forma, la Ilamada a la ruti- 
na ser6 un tanto especial, ya queen 
dicha Ilamada se deber6 indicar cul 
es el modo de pantalla en el que de- 
seamos trabajar. 
Dado que la rutina est6 ubicada en 
la direcci6n #A000, la forma de rea- 

lizar la Ilamada ser6 la siguiente: 
CALL &A000,n 
donde n ser6 el modo de pantalla 
elegido. Asi pues si por ejemplo en 
la Ilamada hacemos n=0, indicare- 
mosque deseamos trabajar en MO- 
DO 0. Por Io tanto n deberc tener un 
valor comprendido entre 0 y 2. 
Una vez producido el efecto de re- 
ducci6n, podremos salvar el nuevo 
gr6fico en cinta o disco. Para ello po- 
demos elegir una de las cios opcio- 
nes siguientes: 
1. Salvar el gr6fico como si de una 
pantalla se tratara; para realizar 
ta opci6n, deberemos hacer Io 
siguiente: 
SAVE'nombre',b,&C000,(1638414) 
2. Salvar la pantalla reducida en 
forma de bytes, para Io que debere- 
mos hacer: 

"/0 

SAVE'nombre',b,&5000, (16384/4) 
De esta forma podremos olmacenar 
nuestras pantallas reducidas en cin- 
ta o disco, para cuando deseemos 
utilizarlas. 
Para poder disfrutar de esta ruti- 
na, deberis copiar el listado ensam- 
blador que aparece o continuaci6n. 
La posici6n original del progroma, se 
encuentra en la #A000, pero pod6is 
ubicarla donde dese6is, teniendo en 
cuenta que el buffer que se utiliza 
empieza en la direcci6n 
#5000 y tiene una Iongitud de 4096 
bytes. 
Para aqu611os que no posean en- 
samblador, pod6is copiar el listado 
Basic, que se encarga de pasar las 
datas a memoria. Una vez termina- 
do, deber6is ejecutarlo con 'RUN'. 
Si una vez hecho no aparece ningOn 
mensaje de error, podr6is salvarlo en 
cinta o disco como bytes de la forma 
siguiente: 
SAVE'REDUCTOR',B,A000,245 
Para ejecutarlo, pod6is confeccio- 
nor un programa Basic como el si- 
guiente: 
10 MODE N 
20 LOAD 'REDUCTOR),&A000 
30 LOAD 'PANTALLA',&C000 
40 CALL &A000,N 
50 LOCATE 1,20 
/COHO8 



• ."- 0 
0 

HACF. R 
f' RI I',': 
F'_F'nS: 
PINT: 
F'_ F:l I[_'. 1 

 C) 
70 
100 
:150 
170 
i 
t90 
2 0 
240 
250 
270 
280 
310 
,30 
400 
4 i0 
d 50 
470 P R(I : 
4BO 
4 9 0 
510 
5P0 
54(:) 
56C) 
570 
580 
59C) 
600 SINF: 
$20 
630 P..ROI i  
640 
650 
60 

O,RG #AOC)O DLIN7 F' 
I.D A, (IX+O) POP HI. 
CAIt HACKS DJNZ F'_ROL 
RFT COMPR: LD A (MODO) 
' D I ):. #50C'<i C:F' #C)C) 
]R PINT .P 7  Cr]MMQI 
AND #  AHD +tAA 
3 R 7  P ..F'AS t D P , #0 
I D A H F.CtMNO?: RRA 
ADD A  08 RRA 
LD HA RR 
AND #8 D.NZ COMMO2 
CP #'B I NC HL 
3R 7, P_F'AS I D  (HL) 
L D A tt AND #AA 
ADD A #08 I.D {2 
t O HA t D P,404 
dR PINT (2 BUI: RA 
LD DF, #Cx'}5<} RRA 
LD A  H RR C 
XOR # D3NZ 
LD H  A RR C 
ADD HI  DE RR C 
PLISH BC RR C 
F'LIt HI RR C 
I D B #28 LD A <IX+O) 
PUSH B(: OR C 
CI[ .{ C(]MF'P LD ( I X+O)  A 
"( N[ I-U RET 
{NC T:< COMMOI: LD A (HL) 
POP pr- AND 
DIN.' F t}C' LD (IX*C)) ,A 
f:'C]F' It i_) A, (HL) 
F'OF' E{C AND ' 
DJN7 [-' t{ RLA 
RE T fir ( IX {" ) 
I D  D (IX+O) A 
t D I NC I Ii 
t D [ D A, (HL) 
JR AND 88 
t [' RRA 
AND f-cRA 
(F' OR ( I X+O) 
.IR L D (IX*O) A 
 D I.D A (HL) 
ADD AND 
I D RRA 
JR OR ( I X+O) 
LD (IX+O) ,A 
RET 
COMMO0: I D A (IIL) 
AND 
LD (IXO) A 
IMC HL 
I D A, <HL) 

670 
68C} 
690 
7C}C) 
710 
720 
746 
75o 
p?,.' 
 60 
880 
9?," 
94r': 
950 
96< 
98q 
99C} 
10 10 
I. 0 
1 <,40 
1(}7C 
1 rSA 
IY#500('}  00 
S I hie L 
A  I I 
#38 1 t 40 
1. 
 ('B t  " 
S I NF 
LD A, H 127(') 
XOR #38 i 
LD HA 1240 
ADD HI  DE 1 
F'IJSH BC 1260 
F"LISH H[ 1270 
I D A (lYe(') 1290 
t. D ( HL. ) , A 
]N[; 1Y 
[ NC HL 13?0 

RRA 
OR (IX+(:)) 
I.D (]X+O} 
RET 

I 

]0 FOR N <AO0( TO &AOFO 
?(') READ A:SUMA SUMA+A 
40 NFXT 
50 IF StJMA:C'>&6683 IIEN F'RIN'F "ERRqR 
GN DATAS" 
60 DATA 221,126().50239, J60205 
70 DATA I, 160,205,74 160, 201 221 
80 DATA 3%(8033,0 192. 
9( DATA 1CK,74,31,12423056,254 
100 DATA 56.40,16,124,198,8,10 
II(') DATA 30562545640,. 124 
J?O DATA J988, I0324,8, 
13(' DATA 0. 124, 238, 56,103, 25197 
!40 DATA 229,40 197,205, 124, 
50 DATA 35,22t,35 193 16246225 
J60 DATA 193, 16,20720133,0, 192 
17(3 DATA 253,3Z0,80,,I00,24 
lSC) DATA 21, t24205625456,4C) 
90 DATA 6 124 t988 t0324,8 
200 DATA 17,80.0 124,28,6, 103 
21(3 DATA 5 197,229 6 40 25 126 
220 DATA 0  19, 253, 35, 5. 16,247 
230 DATA 225 193, 16 218, 201 58, 239 
240 DATA 160,2540,40,90254 t 
250 DATA 40,47, 126,230170221,54 
260 DATA 
270 DATA 20,(').3C) 18248,35 126 
2Br) DATA 
290 DATA 31  20 , 25  16  250,203  25 
00 DATA 203,25,2C),25,203.25,221 
t(3 DATA i760 t77221 
?0 DATA 26.230 IZ6.221, 119,0, 126 
330 DATA 230,343,221, t820,221 
340 DATA I190,35,126,230, 136,31 
50 DATA 31,221182,(3221I190 
360 DATA 12, 230, 34, 31, 221, t82,0 
70 DATA 22, tt,0201 126, 230170 
EBr} DATA 221, 119C;,5, 126,?30, 170 
390 DATA 31,221, 182,(',221, If9,0 
400 DAtA 
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PIDOLA 

Esta semana as proponemos un sencillo juego 
que consiste en pasar todas las aspas al lugar 
donde se encuantran los c[rculos y viceversa con el 
menor n6mero de movimientos posibles. 
Estudiamos de nuevo las cadenas de caracteres. 

E I progrma linea a li- 
nea realiza Io siguienle: 
10-50 REMs que informan de su identidad. 
60 REM que indica la pre..araci6n de la 
pantalla. 
70 Se limpia la misma. 
80 Se crea, con WINDOW, una ventana 
#1, posicionada y dimensionada segOn los pa- 
r6metros indicados. 
90 Se define la variable (A$)) coma la ex- 
presi6n literal (XXXX O000)h 
1 O0 A la variable B4 se le asigna la ca- 
dena (123456789. 

! 10 Se escribe, en la posici6n dada, el texto 
que da titulo al programa. 
120 Impresi6n en la pantalla del valor de 
130 Aparece igualmente el contenido de 
la variable B$, 
140-150 Escribe en la pantalla los textos re- 
lacionados con los movimientos realizados, 
160 Si la variable (A$)> toma ese valor, 
es decir, precisamente el inverso del inicial 
(0000 XXXX), aparece un mensaje de felicita- 
ci6n. 
170 REM que indica la entrada de los cam- 
bias. 
180 Se nos pregunta la posici6n del car6c- 
ter que queremos cambiar asignando su va- 
lor a la variable (A). 

9(' RBM MICROHOBBY AMSFAD , CI  #; 
O BPI k'II ql A ]() NbM NQI II DF N(1VII'TFNILI 
4 RFM L.986 S 
b(' RFPI PREPARACION FANTAI LA 
J WINDOW #1,,4(,?),?h 
9 AS 'XXXX OOnO" 4()  MID$(A$.[ 1) 
Inr) H$ "I" 4567B9" 50 Y$ 
[I0 [OCATC 16.1:PRIHl"FIDOLA" ?r) IF A-O [ B-fl R A'9 
loft lOl TE I.]0: RINI A$ B OR ABS (A-B) 2 OR X$ " " IH 
I-0 lOCATE ]5.12: PRINT B$ EN G(ITO 
}.IT,";M 0 v$ ., . 
50 IOATE 85: PRINT "UI lIMa 9 
MOV[MIFNT ":A: "/' B Or I M Rkkl'kNlfr ION I 
160 IF AS "0000 XXXX" III N IOF AItA 
ATF i4. 7" PRINI "ENH(IRABUFrlA" - MID$( .h. I ) X$: 
: FND . I) =Y$ 
7r b'FM ENTRAIA I)F F'AMH][ :, 20 IO(AIF ]%.1: PINI 

180 lhIPur #I.:"DE CASILLA ",A x ( OOTO 141 

 ' MSTRAD ] "";','-] 

| 90 Pide Io posici6n donde queremos co- 
Iocar nuestro carOcter. 
200 Se borra el contenido de la ventana 
#1, que definimos previamente. 
210 REM que informa del comienzo del 
anOlisis de los movimientos. 
220-230 Se analiza que los valores de 
y ((B est6n dentro de los limites. De no ser 
correctos el programa volveria alas lineas 180 
6 190, segOn corresponda. 
240-250 Con la funci6n MIDS cambiamos 
los contenidos de las variables (X$)) e 
par los caracteres colocados en las posiciones 
A y (B respectivamente. 
260 Se analiza si la posici6n de la ficha que 
queremos mover es vOlida para hacer dicho 
movimiento. Si no Io es, la ejecuci6n del pro- 
grama vuelve a la linea 180 donde se has pe- 
dirO una nueva posici6n, ya que el movimien- 
to anterior no era correcto. 
270 La variable ((X$ toma el valor de 
(Y$,). 
280 Mientras que a ((Y$)) se le asigno el 
espacio en blanco ( . 
2?0 M es el contador de movimientos. 
Par eso cada paso par esta instrucci6n incre- 
menta en uno el valor de dicha variable ((M. 
300 REM que informa de la representaci6n. 
3| 0 AI hater esta asignaci6n, pasamos al 
carcter colocado en la posici6n ((B)) (segun- 
do parmetro de la funci6n MIDS) de la va- 
riable (A$)), el contenido de ((X$))o De la 
misma forma cambiamos el colocado en la po- 
sici6n (A)) par el de ((Y$)). 
320 Se representa en la pantalla la expre- 
si6n literal de la cadena (A$)). 
330 La eiecuci6n del programa vuelve a la 
linea 140. 

MICOHOBeY AMSTRAD 17 



COMO CREAR 
UN RAM DISC PARA 
EL 128 

E1 6128 tiene, como todo el mundo sabe, un 
segundo, banco de memoria de 64K, el cual, por 
desgrac, a, no se puede .u.sar desde Basic. Pero sE 
puede emplearse como dsco RAM, y en el artEculo 
os expficamos c6mo hacerlo. 

Realizado por: Gings L6pez 

ANK.128 es un pro- 
grama que permite gestionar desde Basic o c6- 
digo m6q ina las 64K extras para diversos 
usos. Este programa incluye en el sistema cua- 
tro comandos del tipo RSX que pueden mani- 
pular el b, nco c6modamente. D's de estos 
cuatro comandos necesitan determinados pa- 
r6metros p. ra poder opercr, devolviendo un 
mensaje de error si se omite alguno de ellos 
o si la operaci6n no se puede realizar con los 
par6metros introducidos. 
La memoria del CPC 6128 est6 dividida en 
dos bancos de 64K cada uno, el primero es 
el normalmente usado para Basic y el segun- 
do necesita ciertas operaciones para ser utili- 
zado. 
El segundo banco Io podemos considerar di- 
vidido en cuatro bloques de 16K cada uno, y 
s61o se podr acceder a 1 activando el blo- 
que que necesitamos er un momento dado, 
es decir, al utilizar el banco extra no podre- 
mos tenerlo activado en so totalidad sino que 
Io utilizaremos activando uno de sus cuatro 
bloques cuando Io necesitemos. 
El bloque activado solapa a la RAM de Ba- 
sic, quedando en la zona de memoria 
#4000-#7FFF, es decir, el bloque activado 
sustituye el segundo bloque de 64K de la RAM 
de Basic, pudiendo utilizarlo en este momen- 
to. Cuando no Io necesitemos, Io desactivare- 
mos, volviendo a ser funcional la RAM de Ba- 
sic anteriormente solapada. 
La subrutina activadora de bloques es la 
#BDSB; antes de saltar a ella cargaremos el 
acumulador con un valor o otro, dependien- 
do del bloque a activar: 
A=O desad'iva cualquier bloque 
A= 4 activa el bloque 1 
A= 5 activa el bloque 2 
A=6 activa el bloque 3 
A= 7 activa el bloque 4 
18 coo88r AMSTRAD 

Los comandos son los 
siguientes 

* ISAVE: Graba la zona #40-#BOFF en el 
segundo banco de 64K. Este comando es Otil 
cuando queremos salvar de forma r6pida un 
programa determinado para utilizarlo m6s 
adelante sin necesidad de volverlo a cargar 
del disco. 
Tambign es Otil para el programador de c6- 
digo m6quina al que le interesa salvar un pro- 
grama antes de acceder a 1 para comprobar 
su funcionamiento. Si pulsamos CONTROL, 
SHIFT y FSC, aunque el sistema es inicializa- 
do, la RAM EXTRA no Io es, con Io que nues- 
tro programa todavia permanece en ella, pu- 
diendo recuperarlo si cargamos BANK-128 de 
nuevo, 
ISAVE guarda tambin las variaciones el el 
banco FXTRA. 
* ILOAD: fface la funci6n contraria que ISA- 
VE, cargando en el bloque #40-#BOFF los 
contenidos del segundo banco, que previa- 
mente habian sido introducidos en ste me- 
diante la orden ISAVE. 
* IBLOCK, n: Activa en la zona 
#4000-#7FFF el bloque n de 16K del banco 
extra. 

n = 1 bloque 1 
n = 2 bloque 2 
n=3 bloque 3 
n=4 bloque 4 

Para desactivar cualquiera de estos bloques 
utilizaremos 

IBLOCK, O 

* IMOVE,nl,n2,n3: Se utiliza para realizar 
rpidamente desplazamientos de memoria. 
n 1 = direcci6n origen 
n2=direcci6n destino 
n3=nOmero de bytes a desplazar 

I 



Subrutinas y desarrollo 
del programa 

EXP: Produce una expansi6n del bloque 
#4000-#7FFF hacia direcciones m6s altas y 
ms baias de la siguiente forma: 
0 2000 8000 AO00 1000 
4000 6000 7FFF 
CMP: Rediza la operaci6n inversa a EXP, 
pasando Io expandido a la zona 
#4000-#7FFF. 
Nota: el resto del progama est6 comenta- 
do en el listado del programa adjunto a estas 
hojas. 

Funci6n general 

EXP: expande 
CMP: comprime 
LOAD: comando 
RESET: reestablece los contenidos de las zo- 
nas #8000-#BOFF y #40-#3FFF 
SAVE: comando 
BLOCK: comando 
CONT: salto relativo 
TABLE: direcciones de mensajes 
ILEGAL: direcciones de mensajes 
INIT: direcciones de mensajes 
DOWN: ejecuta un CHRS(10) y CHRS(13) 
PRINT: imprime mensajes en pantalla 
BUC: inicio de bucle en PRINT 
ERR: visualiza mensaje de error 
MOVE: comando 
NDO: saltos relativos 
DO: saltos relativos 
OUT: imprime mensaje de error 
BEGIN: inicializaci6n del programa 
COMMAN: tablas de los comandos RSX 
ORDERS: tablas de los comandos RSX 
El programa principal es BANK128.BIN, 
que se encuentra en c6digo m6quina. Este va 
acompaado de un cargador Basic que impri- 
me informaci6n y por supuesto, carga 
BANK128.BIN, haciendo un CALL &A48F que 
es la direcci6n de BEGIN. El nombre del car- 
gador es BANK-128.BAS, pero se puede 
prescindir de 61 cuando no se quiere perder 
un programa Basic que podamos tener en me- 
moria tecleando Io siguiente: 
LOAD "BANK128.BIN" 
MEMORY &A2FF: CALL &A48F 
La 0nica funci6n de BANK-128 (el carga- 
dor Basic) es imprimir informaci6n y hacer las 
operaciones indicadas arriba. 
BANK128 permite salvar varios programas 
Basic en el banco extra siempre y cuando 6s- 



t(') MODF ? i0 DATA 
20 ;v'-I--{HR$(24):PEH J:INi IO:F'AF'ER 30 DATA 
O; NI( (3, t 3C) DATA 
() I O(AIE ?D. ,:PRINT Cl4R$(164)" 198 340 DATA 
6. "CHR$(24 " B A N F - 1 2 8 "C 5C) DATA 
HR$(24)" P(R G.tOPEZ 360 DATA 
40 [(CATE 14,2:PRINT STRING$(53,"" 370 DATA 
t_O{.ATE 144:PRIN S'rRING$(53,"%") 380 DATA 
390 DATA 
:lOCATE 14,:FRINT")":LOCATE 63:P 
RINT" " 400 DATA 
50 tOCATE 0,6:F'RINT"Nuevos omando 410 DATA 
420 DATA 
430 DATA 
r)  OCAE 2,8:PRINT ")"aS"SAVE"aS" 440 DATA 
> Graba el bloque &40-&BOFF en el 45r) DATA 
seq,dn han:o.":PRINT TAB(12)""a$ 460 DATA 
"[.OAD"a$"  Carga el bloque &40-&B 470 DAA 
OFF con el segundo banc.":F'RINT TA 480 DATA 
B(12)""a$"BLOCK"a$" ,n > Ativa e 490 DATA 
1 bl(que n en la zona &4OOO-&7FE," 500 DATA 
70 PRINT TAB(12} ""a$"MOVE"a$"  [or 510 DATA 
Igen],tdestino],{numero de bytes a 520 DATA 
trasl adar ]. " 530 DATA 
80 v-272:FOR i 1 TO 4:PLOT 90)v,O:D 540 DATA 
RAWR 5,0,C):v v-16:NEXT 550 DATA 
90 O[ATE 14,1&:PRINT"PARA UTILIZAR 560 DATA 
"AS" BANK-128 "AS" SIN DESTRUIR BA 70 DATA 
SIC T.CLEAR:':tOCATE 9 18:PRINT"ME 580 DATA 
MOKY &A2F:LOAD "CHR$(34)"BANKI2O.B 590 DATA 
IN"CHR$(34)":CALL &A48F" 600 DATA 
I00 lOCATE 21201PRINT"NOTA: NO UTI 610 DATA 
E I/AR A ?ONA &A3OO-&AbO0" 620 DATA 
110 OCATE 31,25:PRINT A$"PULSA UNA 630 DATA 
TFC) A"A$ 640 DATA 
120 INK 1,26:EOCAE I,I:RRIN CHR$( 50 DATA 
7) 660 DATA 
iO WHI E IN):EY$ "":WEND:MEMORY (A2 870 DATA 
FF:GOSUB 140:CALL <A48F:CLEAR:DELET 680 DATA 
E -870: END 690 DATA 
140 FOR N &A300 TO ,A4D6 700 DATA 
150 READ A:SUMA SUMA+A 70 DATA 
160 POKE NA 720 DATA 
70 NEXT 730 DATA 
180 IF SUMAtra43546 THEN PRINT "ERRO 74() DATA 
R EN DATAS" 750 DATA 
190 DATA 330,64170.32I 760 DATA 
770 DATA 
780 DATA 
790 DATA 
800 DATA 
80 DATA 
820 DATA 
830 DATA 
840 DATA 
850 DATA 
860 
870 

200 DATA 032,237, 176,330:96 
210 DATA I0,32,17,0, 128237 
220 DATA 17&,2C)l33O3217r.) 
230 DATA &4,1,0,32237 176,33 
240 DATA 0,128, 170,96, 1,0 
250 DATA 32,237 s 176 201 s 62: 5 205 
260 DATA 91189,205:0 163,b2,0 
270 DATA 205,91,189,20523) 163)62 
280 DATA 62C)591s 189, 17)0 128 
290 DATA 33,0,b4sl,O)49237 
300 DATA 176)62420591 189, 17 

64,0I0192,63330 
64,237176,62,0195,91 
18962,42()591) 189) 17 
0,64,1,192,63,33,64 
0237 176626205,91 
189, 170,64 I049 
33,0128,237)17662,0 
205,91189,205,016362 
5,20591,189,205,23,163 
195)62,16s221,126)2254 
III0194,88164,221,126,0 
254s521088164,198s3 
25a,332°2620,195 
91, 189,66,97 100,32,67 
11 I09 i09°97 110 I00,0 
73 108, I08 101, 10397108 
2, i08 101  110 103, 104, 116 
324732,77:79,8669 
32,9798,11114,116I01 
100,0|64,3249,5756 
h446,32.2,243232 
66326532783275 
245,3249°32,50,32 
56,3232,243232080 
7982327146,7679 
8rI,699003278I01 
I1932,670111,I09.10997 
110i001155832,12466 
76,79,677544Ii0,32 
323212483,65s86°69 
32,3232124,7679,65 
68°32,3232124,77,79 
866944II0,4944iI0 
504411051062I0 
205.90,187,62°13,195,90 
18720564164,1262540 
40238,205,901873524 
245,33177,16324237,221 
1266254III32244,221 
I025221,110,422186 
322194222170I 
22178,062018632 
3°187,408,21327,235 
%235209563237s176 
20133,189,1&3195,74,164 
622,205.14188,33219 
16320574,16435205,74 
164205,4164,20564,164 
I17316433205.164195 
209188187,16419546,163 
1959.163,195,150.163,195 
931647679&5196.83 
65,86°19766,76,79,b7 
203,77,79,8&°197,00 

DATA 000,0.00)0 
RETURN 

tos no tienen m(s de 16K. Lo forma de hacer- 
Io es la siguiente: 
IBLOCK,1 
I,MOVE&40,&4OOO,&3FCO: desplaza el 
programa al bloque 1 
IBLOCK, O: desactiva el bloque 1 
Para recuperarlo: 
IBLOCK,1 
IMOVE&4OOO,&40,&3FCO 
IBLOCK,O 
Podriamos almacenar tres programas m6s, 
situ6ndolos en los tres bloques restantes. 

5 MEMORY &3FFF 
15 FOR 0-I TO 4 
16 CLS 
20 FOR i I TO 25:PRINT"ALMACENAMIEN 
TO DE PANTALLAS"+STR$(O)+ .... ÷STRIN 
G$(16,48+o)+" ALMACENAMIENTO DE P 
ANTALLAS"÷STR$(O):NEXT I 
30 I BLOCK, O: IMOVE, &CO00° &4000, &4000 
: NEXT 0 
4()  BLOCI.C, 0 
50 FOR I I TO 4:CLS: ;BLOCK) I'. ;MOVE) 
&4000&COOO,&4000:FOR =I TO 600"NE 
XT J: NEXT I: BLOCK,O 
55 CLS 
60 LOATE 7,10:F'RINT"ACABO DE EECU 
TAR UN SAVE  pulsa NEW y LIST ah 
ora no hay proorama" 
70 LOCATE IO,12:PRINT"PULSA LOAD Y 
VERAS COMO RECUPERAS EL PROSRAMA Y 
LAS VARIABLES" 
80  SAVE 
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ORG #A300 

LD Hi  #4000 
LD DE, #2000 
L D BC, #2000 
I.DIR 

LD HL, #6000 
LD BC, #2000 
LD DE, #8000 
LI)IR 
RET 
LD HL, #2000 
LD DE, #4000 
LD BC #2000 
LDIR 
LD HL, #8000 
LD DE , #6000 
LD BC  #2000 
LDIR 
RET 
LD A5 
CALL #BDSB 
CALL EXP 
LD A,O 
CA[ L #BDSB 
CALL CMP 
LD A,6 
CALL #BOSS 
i D DE, #GO00 
L D HL, #4000 
LD BC, #3100 
LDIR 
LD A, 4 
CALL #BD5B 
LD DE, #0040 
LD BC, #3FC0 
LD HL, #4000 
LDIR 
LD A,O 
3P #BD5B 

2 
13 
14 
15 
16 EXP: 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 CMP: 
29 
3O 
31 
32 
33 
34 
35 
7 LOAD: 
38 
39 
40 
42 
43 RESET 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 SAVE: 
58 
59 LD A,4 
60 CALL #BD5B 
1 LD DE,#4OQC 
62 iD BC,#3FCO 
63 LD HL,#O040 
64 LDIR 
65 LD A6 
66 CALL #BD5B 
67 LD DE,#4000 
68 LD BC#3100 
69 LD HL,#8000 
70 LDIR 
71 LD A,O 
 CALL #BDSB 
73 CALL EXP 
74 LD A,5 
75 CALL #BD5B 
76 CALL CMP 
77 P RESET 
78 de expansion haciendo 
79 :un load partial 

80 BLOCK: 
81 LD A, (IX+2) 
82 CP #bF 
83 3P NZ,ERR 
84 LD A, (IX+O) 
85 CP #5 
86 JP NC,ERR 
87 ADD A,3 
88 CP 3 
89 JR NZ,CONT 

activa bloque 2 
;expande 
desactiva bloque 
comprime 

;actlva bloque 3 
:carga en RAM 
:Basic la zona 
;#8000-#BOFF 

activa bloque 
;carga en RAM 
Basic la zona 
;#40-#3FFF 

esactiva bloque 

:activa bloque 
:graba zona 
#40-#3FFF 
;activa bloque 3 
;graba zona 
;#8C00-#BOFF 
;desactiva bloque 
;expande 
;activa bloque 2 
;comprime 
restaura las zonas 

icomprueba si hay un 
:parametro en entrada 
}sl no hay,error 

90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
I O0 
101 
I02 
103 
104 

CONT: 
TABLE: 
ILEGAL: 
INIT: 

LD A,O 

#BDSB ;activa bloque 
"Bad Command" 
0 
"Illegal lenght / MOVE borted" 

JP 
DEFM 
DEFB 
DEFM 
DEFB 0 
DEFB 164 
DEFM " 1986. 
DEFB 2# 
DEFM " B A N K - 1 2 8 
DEFB 24 
DEFM " POR G.LOPEZ" 
DEFB 0 
DEFM " New Commands: ;BLOCK,n 
IMOVEnIn2n3" 
DEFB 0 
LD A,10 

105 
106 DOWN: 
I(]7 CALL #BBSA 
108 LD A,13 
109 JP #BB5A 
110 PRINT: 
111 CALL DOWN 
112 BUC: LD A, (HL) 
113 CP 0 
114 3R ZDOWN 
115 CALL #BB5A 
116 INC HL 
117 R BUC 
118 ERR: 
119 LD HLTABLE 
120 JR PRINT 
121 MOVE: 
122 LD A, (IX+b) 
123 CP #6F 
124 OR N2,ERR 
125 LD H, (IX+5) 
126 {D L, (IX+4) 
127 I D D, (IX3) 
128 i.D E, (I ×+2) 
129 LD B, (IX+I) 
130 LD C, (IX+O) 
131 LD A,O 
132 CP D 
133 OR NZ,NDO 
134 CP E 
135 OR Z,DO 
136 NDO PUSH DE 
137 DEC DE 
138 E× DE,HL 
139 ADD HL,BC 
140 E× DE,HL 
141 POP DE 
142 JR C,OUT 
143 DO: LDIR 
144 RE 
145 OUT: |.D HL [LEGAL. 
146 JP PRINT 
147 BEGIN: 
148 I D A,2 
149 CALL #BCOE 
150 LD HLINIT 
151 CALL PRINT 
152 INC HL 
153 CALL PRINT 
154 CALL DOWN 
155 CALL DOWN 
156 LD BC,COMMAND 
157 LD HI,RAM 
158 3P #BCDI 
159 
160 COMMAN: 
162 DEFW ORDERS 
163 JP LOAD 
164 P SAVE 
165 JP BLOCK 
166 JP MOVE 
167 ORDERS: 
168 DEFM "LOA" 
169 DEFB #C4 
170 DEFM "SAV" 
171 DEFB #C5 
172 DEFM "BLOC" 
173 DEFB #CB 
174 DEFM "MOV" 
175 DEFW #00C5 
176 RAM: 

SAVE :LOAD 

comprueba si 
;estan los tres 
:parametros 

:poslble hacer 
;la operacion 
parametros 
introducidos 
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AMSTRAD CPC-464 

SERIE CPC 

TECLADO. Teclado profes]onal con 
74 teclas en 3 bloques - Hasta 32 teclas 
programables-,Teclado redefinible 
PANTALLA. Monitor ROB verde (12") 
color (14") 

Pu*tos 320 x 200  
8epUede defimr hasta 8 ventaaas de 
texto y i de ficos • SONIDO 
3 canales de 8 octavas moduladas 
independientemente --Altavoz intemo 
regulable - Salida estreo. BASIC 
Locomotive BSIC ampliado en ROM- 
In luye los c0andos AER y ERY 
para control de interrupdones 

ORDEN' D 

AMSTR.AD CPC 464 AMSTRAD CPC 6128 

UNIDAD CENTRAL. MEMORIAS 
. Microprocesador ZSOA- 64K M 
ampliables - 32K ROM ampliables 
C$ETTE. Cassette inco.rporada con 
• elocidad de grabaci(Sn (1 6 2 Kbaudios) 
coatrolada desde Basic. CONECTORES 
, Bus PCB multiuso, Unidad de Disco 
exterior, paralelo Centromcs, salida 
est&reo, joystick, ipiz 6pdeo, etc, 
. SUMINISTRO. Ordenador con monitor 
verde o color - 8 cassettes con 
programas - Libro '(3ua de Referencia 
BASIC para dlprogramadof' - Manual en 
castellano - Ga antia Oficlal AMSTRAD 
ESPAIA. 

TODO POR 59,900 Pts. monitor verde 

UNIDAD CENTRAL. MEMORIAS 
• Microprocesador ZSOA 128 K PM 
ampliables - 48 K ROM ampliables 
UNIDAD DE DISCO ' Unidad 
Jr 0 oO .d. Data disco de 3"con 180K 
por cara ,, SISTEMAS OPERATIVOS 
• AMSDOS, CP/M .,2, CP/M Plus (3.0) 
 CONECTORES , Bus PCB multiuso, 
paralelo Centronics, cassette exterior, 
2. Udad de Disco, salid 
joyscks, lpiz 5ptico, etC, 
 SUMISTRO  Ordenador con moit. 
verde o color- Disco n CP/M 
lenguaje D,. LOGO- Disco con C/M 
PIus y utilid. es- Disco co 6 programas 
de obsequio - Ma ual en castella o- 
,Garanti Oficia ! AMSTAD EAA, 
TODO POR 84,900Pts. (monitor verde 



PCW.8256 

AMSTRA 

PC-61 

.f 

AMSTRAD 
- Centronics SUMINISTRO Ordenador 

AMSTRAD PCW 8256 

completo con teclado, pantalla, Unidad 

UNIDAD E "" ' L. ,ii 
. Microprocesador Z80A- 256K RAM de 
las que l lZK se utilizan como dis.co RAM 
• TECI.,DO • Tel,ado prfe.0n.l, en 
castellano (fl, acento,.,) de 82 t: 
 PANTALLA • Monitor verde de alia 
:esoluci6n - 90 columnas × 32 lineas de 
texto • UNIDAD DE DISCO * Disco de 
3' y 173K por cara Opcionalmente, 
2," Unidad de Di.co de 1 Mbyte integ able 
• SISTEMA OPERATIVO • CP/M Plu 
de Digital Research * IMPIEORA * 
Alia calidad (NLQ) a 20 c,p,s, - Calidad 
estndar a 90 c,p,s, - Papel continuo u 
hojas sueltas Aline.aci6n autom.ticadel 
palel - Caracte -- normaIe, 
comprimidos, expandidos, control del 
paso de letra (normal, cursiva, negrita, 
subindices, superin.dices, subrayado, etc). 
• OPCION •.Kit de AmpliaciSn a 
512K RAM y 2? Unidad de Disco- 
Inter'face Serie RS 232C y paralelo 

de Disco e Impresora - Discos con el 
procesador de Texto LocoScript, CPZM 
Plu., Mallard,BASIC, DR. LOGO ydiversas 
utilidades - Manuales en castellano - 
Garantia Ofi,'al AMSTRAD ESPAIA. 
TODO POR 129,900 Pts, 

Los ms presigiosos paquetes de 
Software Profesional, en formato 
AMSTRAD.,. a "precies MSTRD" 

Existe tambi6n la versl6n PCW 8512 con 
512K IM y la 2,' Ulaida de Disco de 
1 Mbyte into *o. 
* E1 PCW $.$6 puede utilizarse como 
terninal y en comunicaciones, 
El I,V.A, no estA incluido en los precios. 
.' " .:  muy tmportte venficar lagarantia del 
aparato ya que s61o AM$'rP,.AD lPBNB puede 
garantizarle la ordenada reparaci6n y sobre todo 
materiales de repuesto oflciales (Monitor, 
ordenador, cassette o unidades de discos). 



BARR Y /I/ICGUlGAN OXING 

Alcanzar la corona 
del campe6n del 
mundo no es tarea 
f6cil: largas horas 
de entrenamiento. 
dominio de todos 
los golpes, una 
moral de hierro y 

un manager hbil. 
son las claves del 

xito. 

ui6n no conoce el 
largo camipo que existe entre ser un 
boxeador del mont6n y Ilegar a cam- 
pe6n del mundo? 
Los que est6n al tanto de las peri- 
pecias de Rocky Balboa, tienen ante 
ellos un ejemplo definitivo. Desde 
que empez6 en un pequeo gimna- 
sio, bajo la tutela de su entrenador, 
tuvo que abrirse camino entre los pu- 
giles de segunda ilia, hasta conseguir 
.clanar los primeros combates; luego 

6 ,. RY, cGUIGJI 
.,0' I, : OX 
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Ilegaron los boxeadores de 61ite, y 
por fin la lucha por el titulo mundial. 
Mantener este preciado titulo es un 
reto que pocos boxeadores pueden 
afrontar. Cada vez que Rocky aca- 
ba con un rival que hasta el momen- 
to final del combate parecia inven- 
cible, aparece otro boxeador mucho 
m6s fuerte, con puos de acero, dan- 
do motivo para una nueva pelicula 
del h6roe de las doce cuerdas. 
Todo boxeador necesita un mana- 
ger que, adems de dirigir su prepa- 
raci6n fisica y ser un experto cono- 
cedor del mundo de las doce cuer- 
das, se dedique a concertar los corn- 
bates y planificar la carrera de su pu- 
gil hasta la corona mundial de los 
grandes pesos. 
En el programa que nos ocupa, se 
nos encomienda la misi6n de conse- 
guir que nuestro boxeador Ilegue a 
campe6n del mundo; nuestra prime- 
ra tarea es buscar el boxeador id6- 
neo. 
La bOsqueda se realiza por todos 
los gimnasios de la ciudad, estudian-i 
do cuidadosamente las caracteffsti-I 
cas de cada candidato. Tras un ex- 
haustivo proceso de selecci6n, crea-. 
mos un posible campe6n con las ca- 
racteristicas que nosotros estimamos 
m6s importantes. 
Elegimos su aspecto fisico, consti- 
tuci6n muscular, capacidad de enca- 

jar golpes, t6cnica de boxeo, juego 
de piernas, espiritu combativo y de- 
m6s caracteristicas que definen a un 
boxeador. Cuando tenemos al hom- 
bre, Ilega la fase de entrenamiento: 
si queremos que nuestro pujil alcan- 
ce un buen resultado en el rin; debe- 
mos someterle alas t6cnicas de en- 
trenamiento m6s adecuadas a sus 
caracteristicas fisicas, a la vez que 
planificamos sus pr6ximos combates. 
Como manager de nuestro pOgil, 
tenemos la responsabilidad de selec- 
cionar el contrincante al que vamos 
a enfrentar a nuestro pupilo. El es- 
tudio detenido de las caracteristicas 
de cada oponente, sus puntos d6bi- 
les, lugar que ocupa en el ranking y 
demos factores, son imprescindibles 
para una elecci6n acertada que fa- 
cilite el camino ascendente de nues- 
tro hombre. 

TIGHT ThrMS 
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Conocido el pugil al que vamos a 
enfrentar al boxeador que dirigimos, 
hemos de planificar un entrenamien- 
to que le permita Ilegar al combate 
en condiciones 6ptimas. 
Las distintas sesiones de saco, pun- 
ching, entrenamiento con sparrings, 
pesas, abdominales, sombra ante el 
espeio, footing, etc., deben calcular- 
se cuidadosamente para que nuestro 

pujil est6 en las condiciones 6ptimas. 
Si fallamos en la elecci6n de el en- 
trenamiento, no sacaremos el m6xi- 
mo partido de nuestro pupilo, tenien- 
do gran importancia dirigir 6ste a sa- 
car el m6ximo partido de las espe- 
ciales caracteristicas de nuestro hom- 
bre, explotando sus cualidades e in- 
tentando corregir sus puntos dbiles. 
Por fin Ilega el dia del combate; 
nuestro puesto ahora est6 en la es- 
quina, golpe de derecha, uppercut, 
cObrete, golpea abajo, son las ins- 
trucciones que a voz en grito hace- 
mos Ilegar hasta nuestro hombre en 
el cantro del rin, al que asalto tras 
asalto conduciremos a la victoria. 
Barry Mcguigan Boxing, es un pro- 
grama que se aparta de los tipicos 
juegos de boxeo, en los que sola- 
mente nos limitamos a golpear con 
furia y ritmo a nuestro adversario; 
aquila fase de combate Ilega como 
colof6n de un estudiado proceso. 
La elecci6n de las caracteristicas de 
nuestro boxeador, su entrenamien- 
to, oponentes y dem6s pasos que de- 
bemos dar, se ver6n reflejados pos- 
teriormente en el rin; dependiendo la 
consecuci6n del triunfo de los ante° 
riores pasos. 
En el combate, disponemos de un 
amplio repertorio de golpes; gan- 
cho, guarlia alta, directo a la cara, 
directo al est6mago, crochet, y deo 
m6s golpes de este deporte. 
Disponemos de tres asaltos de tres 
minutos cada uno, para vencer a 
nuestro rival; en caso de superar con 
6xito el combate, nos enfrentaremos 
a un nuevo adversario y asi sucesi- 
vamente hasta donde nos Ileven 
nuestras fuerzas, escalando puestos 
en el ranking. 

En caso de salir derrotados en un 
combate, fabricaremos un nuevo pu- 
gil con distintas caracteristicas espe- 
rando conseguir mejores resultados. 
El juego permite las posibilidades 
de jugar contra el ordenador, o con- 
tra un amigo, manejando cada uno 
su propio boxeador. 
Un programa en el que la estrate- 
gia y el acierto en la elecci6n de 
nuestro pOgil y su preparaci6n fisica, 
son determinantes a la hora de 
afrontar el combate final. 
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C/ Duque de Sesto, 50. 28009 Madrid 
Tel.: (91) 275 96 16/274 53 80 
(Metro O'Donell o Goya) 
Aparcamiento gratuito en Felipe II 

SOFTWARE: |12 PROGRAMAS POR EL PRECIO DE 1!! 
Y adem6s, completamente gratis, un magnifico reloj de cuarzo. Increble/.verdad? 

Ptas. 
PING PONG 2.295 
SABOTEU R 2.295 
RAMBO 2.295 
YIEAR KUNG FU 2.295 
WORLD SERIES BASEBALL 2.095 
MAPGAME 2.750 
RAID 2.295 
HYPERSPORTS 2.295 
HIGHWAY ENCOUNTER 1.750 
HIGHWAY ENCOUNTER DISCO 3.300 
ALIEN B 1.750 

DYNAMITE DAN 
SABRE WULF 
THEY SOLD A MILLION 
FIGHTER PILOT 
MASTER OF T. LAMP 
NIGHIT SHADE 
HACKER 
SUPER TEST 
TORNADO LOW LEVEL DISCO 
TORNADO LOW LEVEL 
KNIGHT LORE 

Ptas. 
2.100 
1.650 
2.500 
1.975 
1,950 
1.950 
1.950 
2.300 
3.300 
1.750 
1.750 

SOFTWARE DE REGALO: iiOFERTA 2 x 1 !! 

Fabulos. °S^ rnstrad 
p r e c i o s .Plr4a (t ' 128 
pCvv" 

Beach Head Decathlon Dummy Run Beach Head Southern Belle 

SOFTWARE DE GESTION PROFESIONAL 

DBA II 17.800 DR. GRAPH 
CBASIC 15.100 CONTABILIDAD 
DR DRAW 15.100 Y v'ros. 

15.100 
t6.600 

IMPR ORAS 
ii 0% , T , . " BRE P. V.P.!! 

UNIDAD DE DISCO 51A '' 
PARA AMSTRAD 
34.900 PTA$. 

LAPIZ 0,  
rlh,. 0 
3-¢9 LtvrE 

CINTA VIRGEN ESPECIAL ORDENADORES 
69 PTAS. 

SINTETIZADOR DE VOZ EN 
CASTELLANO 
15% DTO. 
CASSETrE ESPECIAL ORDENADOR 

JOSTICK QUICK SHOT II 
1.995 PTA$. 
JOYSTICK QUICK SHOT V 
2.295 PTA5. 
con la compra de un joystick 
iiGRATIS 1 RELOJ DE CUARZO! I. 

DISKETTE 5V, d' 
295 PTAS. 

DISKETTE 3" 
990 PTAS. 

Pedidos contra reembolso sin ninggn gasto de envio: Tels. (91) 275 96 16/274 53 80, o escribiendo a Micro-1. C/Duque de Sesto, 50. 28009 Madrid 



PROGRAMAClON 
EN PA$¢A£ 

Auton Arthur M. Keller. 
Pg/nas: 300. 
Editoria/: McGraw.Hill. 

esde su aparici6n, el 
lenguaje Pascal ha ido ganando adeptos. Su 
capacidad para expresar algoritmos comple- 
jos, la claridad y elegancia de su manejo es- 
tructurado, su potente declaraci6n de varia- 
bles, son caracteristicas dificiles de reunir en 
un solo lenguaje. Esto hace que no pase de- 
sapercibido -ntre los entusiastas de la progra- 
maci6n. 
El libro de Arthur Keller est6 enfocado a un 
curso de Pascal y no se limita al manejo de co- 
mandos y sus m6s inmediatas aplicaciones. 
Nos va introduciendo poco a poco en la pro- 
gramaci6n sistem6tica y buena prueba de ello 
es que la clusula GOTO no es descrita hasta 
casi el final del libro. 
Se hace especial nfasis en aquellas t+c- 
nicas que permiten aprovechar la potencia del 
lenguaje: recursividad, funciones y procedi- 
mientos, coniuntos y matrices, tipos .... Cabe 
destacar tambi+n la parte dedicada a los 
goritmos de clasificaci6n y las estructuras di- 
nmicas de datos. 
Incluye asimismo la tcnica paramtrica de 
funciones y las estructuras de datos <<empaque- 
tados, 0tiles para aprovechar bien el espa- 
cio en las matrices de almacenamiento. 
AI final se encuentran las soluciones a los 
ejercicios propuestos, pensados pard ejercitar 
y asentar los conocimientos adquiridos. En los 
apndices se encuentran res0menes de funcio- 
nes incorporadas, c6digo ASCII de caracteres, 
sintaxis del lenguaje y un pequeo glosario 
ra salir de aprietos. 

Servicio T6cnico 
Para AMSTRAD 
en Galicia, 
Le6n 
y Asturias. 
CWMagdalena, 213 
El Ferrol 
Tel.: (981) 35 84 32 

Centro Comercial Guadalupe 
Ctra. Canillas, 136-1.  planta 
Tel. 200 80 65 MADRID 

Centro Comercial El Bulevar 
La Moraleja 
Tel. 654 16 12 MADRID 

Tambi(n abierto domingos de 10 a 2 
Centro Comercial Ciudad Sto. Dorningo 
Ctra. de Burgos, km 28. 
Tel.: (91) 622 12 89 
Algete (Madrid) (Central} 

® 
iOperaci6n cambio! 
Valoramos: 
Tu AMSTRAD 4.64 en 50.000 ptas. 
Un Spectrum+ en 30.000 ptas. 
Amstrad CPC 664 en 70.000 ptas. 
En la compra del AMSTRAD CPC 6128 
o PCW 8256. 
Consulte para monitor color. 
Precios especiales en impresoras y ac- 
cesorios. 
' Tardes 270 34 97. 

MECA.SCRIB 

El Curso de Mecanografia para el AMSTRAD PCW 8256. 
iilMPORTANTE PARA ACADEMIAS!! 
• Gestibn de alumnos. 
• Capacidad para 60 alumnos. 
en un solo diskette. 

Pedidos a: 

EOUCOMP, S.A. 
C/Molina de Arag6n, 1. 
Tel. (911) 2232 12 
19003 GUADALAJARA 

PUBLICIDAD 
GABINEI"E DE INFORMATICA 
Clases de Inform6tica 
sobre AMSTRAD 
En grupos e individuales. 
Ordenadores AMSTRAD y 
perifricos 
Los meiores precios 
$oflare: Est6ndar y a la medido 

ZURBANO, 4"410 47 63 
28010 MADRID 

OPERA CION CAMBIO 
PAsate a momtor color por 
25.000 ptas. 
Valoramos: 
Tu Amstrad 464 en 50.000 ptas. 
Amstrad 664 en 60.000 ptas. 
En la compra de un Amstrad 
CPC 6128, PCW82S6. PCW8512 
Consulte para monitor color 
 (91) 270 34 97 de 4,30 a 8,30 

FUNDAS PARA TU <<AMSTRAD> 
464-472-4 y 28 ....... 2.262 
825 ................... 3.250 
Joystick Quickshott II ...... t.975 
Pago reembolso, ms 250 ptas. de 
gastos de envio. 
Indicar modelo y monitor [verde o co- 
lor). 

Pedidos a: BAZAR POPULAR 
Apartado 27.040 
08080 BARCELONA 

MICRO DEALER 
MA YORISTAS DE INFORMA T/CA 
AMSTRAD PCW 8512 
AMSTRAD PCW 8256 
AMSTRAD CPC 6128 F6sforo verde y color 
AMSTRAD CPC 472 Fbsforo verde y color 
Impresoras, Interfaces, Joysticks 
Diskettes de 3 pulgadas, cable, etc. 
Sinclair, Commodore, New Print, 
Spectrawdeo. Compatibles IBM 
C/. Comandante Zorita, 13. 28020 Madrid 
Tells. 233 07 81 - 233 07 35 
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EL PROGRAMA OFICIAL 
DEL CAMPEONATO DE MEXICO 86 

DISTRIBUIDOR EXCLUSIVO PARA ESPAA ERBE SOFTWARE 
C/. STA. ENGRACIA, 17 - 28010 MADRID, TFNO. (91) 447 34 10 
DELEGACION BARCELONA, AVDA. MISTRAL, N o 10. 
TFNO. (93) 432 07 31 
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ADEMAS DE 
UN FABULOSO PROGRAMA DE FUTBOL, CONTIENE: 
• UN ALBUM/POSTER EN EL QUE PODRAS SEGUIR 
LA COMPETICION PARTIDO A PARTIDO. 
• UN POSTER CON LOS "MOMENTOS CUMBRE" 
DE LA HISTORIA DE LOS MUNDIALES A TODO COLOR. 
• LOS BANDERINES AUTOADHESIVOS 
DE LOS PAISES PARTICIPANTES. 
• UNA PEGATINA DE TELA CON EL EMBLEMA DE LOS'MUNDIALES. 



J CUTIVO 

/.Cu6ntas veces habr6s sofiado con ser el director de tu 
negocio, verdad? Pues no suefies , hazlo realidad y 
demuestra tu capacidad de decisi6n y habilidad para los 
negocios I/evando con mano segura y firme tu empresa. 
Recuerda, una buena gesti6n significa el xito de la misma, si 
sta es mala te Ilevar6 al fracaso y la bancarrota. 

Juan Enrique Brandariz Reboredo 

I prograf .a trata de si- 
mular el funcionamiento de un, fabrica de la 
que el jugador es director. El o ,ietivo es equi- 
librar las vntas ;, la producci6  para obtener 
beneficios al ca o oe as 54 semanas en las 
que tenemos la direcci6n de la empresa CPC, 
S.A. Si antes de las 54 semanas, el total de 
nuestro capital (EFECTIVO +ALMACEN + FA- 
BRICA) es menor de O, se considera que la em- 
presa esta en bancarrota. 
Pueden surgirnos cuatro tipos de imprevis- 
tos distintos: 
- Incendio en un almacen. 
- Averia en una de nuestras m6quinas. 
- Subida de precios del proveedor. 
- Petici6n de subida del sueldo de los em- 
pleados por parte del sindicato. 
Inicialmente contamos con un efectivo de 
500.000 pts. y la fbrica est6 valorada en 
otras 500.000 pts. 
El stock inicial y el nOmero de empleados es 
aleatorio. El sueldo inicial es de 10.000 pts. 
a la semana y los gastos de mantenimiento se- 
manal son de 15.000 pts. 
Semana a semana deberemos procurar que 
no haya pgrdidas, tomando las acciones que 
creamos convenientes, como: 
- Contratar empleados. 
- Despedir empleados. 
- Mejorar la f6brica. 
- Subir el precio de venta de los produc- 
tos. 
- Bajar el sueldo a los empleados. 
- Hacer campaas publicitarias. 
- Pedir un balance grafico para ver c6mo 
va la producci6n, las ventas, los ingresos, los 
beneficios, etc. 
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- Pasar a la siguiente semana. 
Cuando no tomamos ninguna acci6n, al ca- 
bo de un minuto pasaremos autom6ticamen- 
te a la siguiente semana. 
Las acciones que tomemos influiren positi- 
va o negativamente en los ventas yen la pro- 
ducci6n, Ilegando incluso a producirse una 
huelga. 

Instruciones 
de manejo 

Desde el informe general seleccionaremos 
la opci6n deseada pulsando el nOmero que co- 
rresponda en el menO de acciones disponibles. 
Para pasar a la siguiente semana (Acci6n 0), 
se puede pulsar cualquier tecla distinta de 1 
a9. 
Existen pantallas que s61o nos dan informa- 
ci6n. Para continuar, basta con pulsar cual- 
quier tecla. 
En otras pantallas se requiere la introduc- 
ci6n de datos. Si una vez introducido el dato, 
nos devuelve informaci6n, el programa espe- 
rar6 a que pulsemos una tecla, para darnos 
tiempo aver su respuesta. Si no nos devuelve 
informaci6n, el programa continuar6 sue e- 
cuc 6n, pasando a la siguiente pantalla. 
Coda vez que el programa requiera un da- 
to, nos Io pedir6 indic6ndonos claramente el 
dato que necesita. 

FPROD 
FVENT 
FHEUL 
SEMANA 
TIEMPO 
EFECT 
STOCK 
FABRIC 
SUEL 
EMPLE 
PVP 
PCOST 
RPP 
VENT 
PROD 
Ml-rO 
AUMENT 
INCEN 
AVERIA 
TOTAL 

TINGRE (54) 
TBENEF (54) 
TPVP (54) 
TPCOST (54) 
TVENT (54) 
TPROD (54) 
EFINIC 
STINIC 
FAINIC 
TOTFIN 

Factor de producci6n. 
Factor de ventas. 
Factor de huelga. 
N. ° de semana actual. 
Valor de TIME al inicio de la 
espera por acci6n. 
Dinero en efectivo. 
de unidades que hay 
en el almacn. 
Valor de la f6brica. 
Sueldo semanal por em- 
N. ° de empleados. 
Precio de venta de nuestros 
productos. 
Precio de costo de la mate- 
ra prima. 
Rendimiento semanal te6ri- 
co por persona. 
N. ° de unidades vendidas 
en la semana. 
Producci6n de la semana. 
Mantenimiento semanal de 
la f6brica. 
Porcentaje de aumento de 
sueldo / precio costo. 
N. ° de unidades afectadas 
en el incendio. 
Importe de la reparad6n de 
la averia. 
EFECT+STOCK * PVP+ 
FABRIC. 

Tabla de ingresos. 
Tablo de beneficios. 
Tabla de predo de venta. 
Tabla de precio de costo. 
Tabla de ventas. 
Tabla de producci6n. 
Efectivo inicial. 
Stock initial. 
Valor f6brica inicial 
Total final. 



2O0 

210-460 
460-920 

930-990 

1000-1150 
160-1320 
1330-1470 
1480-1560 
1570-1660 
670-1740 
1750-1850 
1860-1970 
1980-2070 
2080-2170 
2180-2270 
2280-2360 
2370-2410 

Definici6n de la funci6n FNA 
(X) que nos dar6 un nOmero 
entre 1 y x. 
Inicializaci6n de variables. 
Presentaci6n del informe ge- 
neral. 
Bucle de espera par acci6n. 
AI cabo de un minuto salta a 
la siguiente semana. 
C61culo de las variables para 
la flueva semana. 
Informe de ventas, ingresos y 
beneficios. 
Informe de producci6n. 
!n funci6n de AZAR habr6 o 
no imprevisto. 
Subrutina de firma de los in- 

formes. 
CCION 1. -Contratar em- 
pleados. 
ACCION 2. -Despedir em- 
leados. 
ClaN 3. -Mejora de la 
f6brica. 
ACCION 4. -Subir precios. 
ACCION 5. -Bajar precios. 
ACCION 6. -Subir sueldos. 
ACCION 7. -Bajar sueldos. 
ACCION 8. -Campafia pu- 
blicitaria. 

2420-2S70 Incendio imprevisto. 
2580-2730 El sindicato pide aumento de 
sueldo. 
2740-2870 Averia imprevista. 
2880-3010 El proveedor sube los precios. 
3020-3050 CION 9. -Inicio del Ba- 
lance gr6fico. 
3060-3180 Subrutina para pintar los ejes 
de coordenadas. 
3190-3380 Gr6fica de Producci6n / Ven- 
tas. 
3390-3590 Gr6fica de Precio Cos- 
to / Precio Venta. 
3600-3870 Gr6fica de Ingresos / Benefi- 
cios. 
3880-3930 La empresa est6 en bancarro- 
ta. 
3490-4210 Balance final, alas 54 sema- 
nas. 
4220-4240 Fin del programa, con opci6n 
a volver a empezar. 
La instrucci6n CALL &BB18 que apare- 
ce repetida par todo el programa, llama 
a una rutina del firmware que espera a que 
se pulse una tecla. 

Organigrama general 

Inicio 

Instrucciones 

Inicializaci6n 
de 
Variables 

Informe 
general 

Ejecutor acci6n 
correspon- 
diente 

C61culo 
Variables 
poro siguiente 
semana 

de 

de 

lmprevisto? 

TOTAL 

Semana= 
Semana + 1 

E ecular 
imprev sto 
correspon- 
diente 
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30 " program "DIRECTOR" 
40 " =imulaczon de una FABRIOA 
45 
50 ' autor Juan E. Brandarlz 
55 ' 
80 MODE I : CLS 
11(I PRINT:PRINT "tierles que dirigir 
120 PRINT:PRINT " Pare ello puede 
150 PRINT:PRINT "A1 cabo de 54 sema 
160 PRINT:PRINT "rendlr cuentas. IS 
17(I PRINT:FRINT "{[ NcJ dejes la emp 
resa en BANCARROTA ' " 
IBD PRINT:PRINT:PRINT:PRINT:;'RINT " 
220 DEFRFAI 
240 fprod 80 
250 fvent 85 
260 f huel-50 
440 oini( fabric 
48(I CLEAR INF'LIr 
-CAPITAL- 
-GASTOS- 

540 PRINT 
R$ (149) : " 
550 PRINT 
R$(149) 
5¢ PRINT 
R$(149) ; " 
570 PRINT 
R$(149) " 
580 PRINT 
R$ (149)  " 
5oc F'R I NT 
R$(149) 
600 PRINT 
R$ (149)  " 

EFECTIVO 
SUELOOS" 
ALMACEN 
M. PRIMA" 
FABRICA 
MANTENo" 

'CH 
" ; CH 

TOTAL 
TOTAL" 
610 PRINT STRINGS(2( G 154) ;CHR$(159) 
I STRINGS ( 19, 154) : 
620 F'RIN " SUELDO ";CH 
R$(t49) ; " PRECIO VENTA" 
630 PRINT " EMPLEADOS ';CH 
R$(149) : " PRECIO COSTO" 
40 PRINT STRINGS (20, 154)  CHR$ (155) 
STRING$ (19 15)  
650 PRINT " RENDIMIENTO SEMANAL T 
EORICO" 
660 PRINT " F'OR PERSONA TO 
TAL" 
670 PRINT STRINGS(40, 154) ; 
680 INK 26:PEN 2 
690 PRINT " $ ACCIONES 
700 PRINT " l-Contratar 6- 
Subi r Suel o" 
71(I PRINT " 2-Oespedir 7- 
Bajar Suel do" 
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720 PRINT " 3-Me]era 8- 
Publicidad" 
730 PRINT " 4-Sublr Preclos 9- 
Balance Granite" 
740 PRINT " 5-Baar Precios O- 
Pasar Semana" 
750 INK 3,2b:PEN 3 
760 PRINT " <Pulse el numero de 
action deseadab" 
770 PEN I 
780 total efect+stockpvp+fabrlc 
790 LOCATE II,7:PRINT USING "###### 
8(10 LOCATE II,8:PRINT USING "###### 
###"fabrlc 
820 LOCATE 10.11:PRINT USING 
###";mtto 
860 LOCATE 30,11:PRINT USING 
tto 
GSO LOCATE 16,14:PRINT USING 
;emple 
rpp 
920 LOCATE 3117:PRINT USING "###"; 
rppemple 
950 a$-INFEY$:IF aS "" THEN GOTO 98 
0 
960 ON VAL(a$) GOTO 16701750,1860 
19G02080,2180,2280,2370,3020 
980 IF (TIME-tiempo)/300>60 THEN SO 
TO 1000 
1030 IF vent>stock THEN vent=stock 
i(140 IF vent<O THEN vent=O 
I070 tlngre(semana)-pvpvent 
suel-mtto-pcostprod 
1090 tpvp(semana) pvp 
1130 efect=efect÷tingre(semana)-sue 
1180 PRINT:PRINT "  INFORME 
1190 PRINT:PRINT:PRINT 
1220 PRINT " unidades, lo quenos p 
1240 PRINT " pts, slendo":PRINT 
EL CAJEPO," 
1290 GOSUB 1570 
1300 INK 3,2&:PEN 3 
1310 LOCATE 225:PRINT " <Pulse ENT 
1330 OLS 
1340 PRINT " FABRICA CPC B.A. 
1360 PRINT:PRINT " : INFORME 
1380 PRINT " La semana actual se 
hart producido":PRINT 
1390 PRINT USING "###";prod: 

nte a un":PRINT 
1410 IF rppIemple>O THEN pp (prodl 
O0)/(rppemple) ELSE pp=O 
1420 PRINT USING "###":pp 
1430 PRINT "% del Rendlmiento Maxim 
o Teorico." 1440 IF fhuel>90 AND emple>O THEN P 
RINT:PRINT" Los empleados es.tan en 
HUELGA":PRINT ELSE PRINT:PRINT:PRI 
NT 
1450 PRINT " EL SUPE 
RVISOR." 
1460 60SUB 1570 
1470 PEN 3:LOCATE 2.25:PRINT " <Pul 
se ENTER para Informe General>":PEN 
I:CALL &BBI8 
[480 aar FNa(IO0) 
1490 IF azar<lO THEN GOSUB 2420 
1500 IF azar>30 AND azar<35 THEN GO 
SUB 2580 
1510 IF azar>SO AND azarK&O THEN GO 
SUB 2740 
1520 IF azar>SO AND azar<90 THEN GO 
SUB 288U 
1530 semana semana+1 
1540 IF semana'54 THEN GOTO 3940 
1550 IF total:O THEN GOTO 3880 
1560 GOTO 470 
1570 " FIRMAG de los inormes 
1580 GRAPHICS PEN I 
1590 ORIGIN (GO 
1600 MOVE 40078 
1610 ORAWR 5,20 
162 DRAWR 5,-20 
1630 DRAWR 10,35 
1640 DRAWR 20-30 
1650 DRAWR -50-20 
1660 RETURM 
1&70 CLS:" contratar 
1680 PRINT:PRINT" Planti|la actual 
1690 PRINT: PRINT: F'RINI : PRINT: INPUt 
1710 f hLleI =f htte l --hUm 
1720 1F fhuel<O THEN fhuEl 0 
1730 PRINT : PRINT:PRINT:PRINT "El 
mple 
1740 CALL &BBIS=GOTO 470 
1750 CLS:' de5pedlr 
170 PRINT:PRINT" Plantilla actual 
1765 IF emple 0 THEN PRINT:F'RINT:PR 
INT:PRINT:PRINT:PRINT "Come vas a d 
,..":GOTO 1850 
1770 PRINT:PRINT:PRINT:PRINT:INPUT 
1780 PRINT:PRINT 
1790 IF num>emple THEN PRINT "Solo 
1810 PRINT:PRINT "El numero de empl 
1820 PRINT:PRINT:PRINT "Castes de i 
1830 efect=efect-num2suel 
1840 uel huel+num 
1850 CALL &BBIG:GOTO 470 
1860 " ME,eRA de la abrzca 
1870 CLS 
1880 PRINT:PRINT "Valor actual Fabr 
1890 PRINI:PRINT:PRINT:PRINT:INPUT 
1910 PRINT:PRINT "Nuevo valor Fabri 
1920 fvent=vent+num/IO000 
1930 ÷prod=prod+num/10000 
1940 mtte mtto+num/lO0 
1950 huel fhuel-num/lO000 
1960 elect-elect-hum 
1970 CALL &BBIB:GOTO 470 
1980 'Subida de preclos 
1990 CLS 
2000 PRINT:PRINT "Preclo de Coto, 
2010 PRINT:PRINT "Preclo de Venta 
";pvp 
2020 PRINT:PRINT:PRINT:PRINT:INPUT 
2030 pvp=pvp+pvpnum/lO0 
2040 PRINT:PRINT: PRINT "El nuevo p 
2050 PRINT USING "#####";pvp;:PRINT 
2060 vent=fvent-num1.5 
2070 CALL &BBIG:GOTO 470 
2080 Ba]ada de precios 
2090 CLS 
2100 PRINT:PRINT "Precio de Costo, 



2110 PRINT:PRINT "Precl o de Vent, 
2120 PRINT:PRINT:PRINT:PRINT:INPUT 
2130 pvp pvp-pvpnum/lO0 
2140 PRINT:PRINT: PRINT "El nuevo p 
215(, PRINT USING "#####";pvp;:PRINT 
2160 vent fvent+num 
2170 CALL &BBIB:GOTO 470 
2180 "8ubida de sueldo 
2190 CLS 
2200 PRINT:PRINT 'El sueldo es de " 
221D PRINT:PRINT:PRINT:INPUT "% a s 
2220 suel-suel+suel%num/100 
2230 PRINT:PRINT:PRINT "Nuevo sueld 
2240 fprod Cprod+num 
2250 IF hue190 THEN huel 90 
2260 huel=¢huel-num 
2270 CALL &BBIB:GOTO 470 
2280 "Bajada de sueldos 
2290 CLS 
2300 PRINT:PRINT "El sueldo es de " 
2310 PRINT:PRINT:PRINT:INPUT "% a b 
2320 suel 5uel-suel%nu/100 
2330 PRINT:PRINT:PRINT "Nuevo sueld 
2340 prod prod-num 
2350 $hul fhuel+num 
2360 CALL BBIB:80TO 470 
2370 CLS 
2380 LOCATE 2S:INPUT "Gasto de Pub 
230 eect eect-num 
2400 Svent=vent÷num/lO000 
2410 GGTG 470 
2420  ncendlo mprevlsto 
243(i CLS 
2440 incen FNa(I00 
2450 IF icenstock THEN Incen-stoc 
2460 PRINT " % INFORME DE I 
NCENDIO 
2470 PGINT:PRINT:PRINT" St. Dl 
2480 PRINT:PRINT " Se ha producid 
2490 PRINT:PRINT " uno de nuestros 
2500 PRINT:PRINT " tando a "incen 
" unidades de stock." 
2510 PRINT:PRINT " Las perdidas s 
2520 PINT:PRINT " cantidad de ";i 
2530 Brock stock-incen 
2540 PRINT:PRINT:PRINT " 
EL PERITO," 
20 GOSUB 1570 
2570 RETURN 
2580 " inorme del sndlcato 
2590 CLS 
2b00 aumen FNa(151 
2610 PRINT "SINDICATO" 
2620 PRINT ') OBRERO" 
2630 PRINT:PRINT Gr. Director: 
2640 PRINT:PRINT Debldo a la 
260 PRINTPRINT los precios 
2660 PRINT:PRINT obllgados a re 
2670 PRINT:PRINT "aumen:"% 
2680 PRINT:PRINT De no concede 
rlo habra Huelga0 
2690 PRINT:PRINT:PRINT " 
EL SUBSECRETARIO." 
2700 GOSUB 1570 
2710 LOCATE 1,2u:INPUT "]Concede el 
2720 IF LEFT$UPPER$r$I)='S" THE 
N suel=suel+suelSaumen/lO0 ELSE hu 
2730 RETURN 
2740 ' averla imprevita 
2750 CLS 
2760 averla FNa(IC)O)%500 
2770 PRINT:PRINT " $ INFORM 
E DE AVERIA " 
2780 PRINT:PRINT:PRINT " St. Dire 
2790 PRINT:PRINT " Habiendose 
2800 PRINT:PRINT " una de nuestra 
2810 PRINT:PRINT " cedldo a su re 

2820 PRINT:PRINT " importe de "a 
2830 PRINT:PRINT:PRINT " 
EL MECANICO " 
2840 GOSUB 1570 
2850 eect eect-averia 
2860 CALL &BBI8 
2870 RETURN 
2880 " inorme del proveedor 
2890 LS 
2900 aumen FNa151 
2910 PRINT "PROVEEDORES INDUSTRIALE 
S S.A." 
2920 PRINT:PRINT : PRINT " Estimad 
o Sr. Director:" 
2930 PRINT:PRINT : PRINT " Como c 
onsecuencia de una suhlda" 
2940 PRINT : PRINT " en las tasas0 
nos vemos ob I i gados" 
2950 PRINT : PRINT " a sublr los pr 
2960 PRINT : PRINT " productos en u 
2970 PRINT:PRINT : PRINT " 
EL PROVEEDOR, " 
2980 COSUD  570 
2990 pcost pcost÷pcost laumen/100 
5000 CALL &BBI8 
3010 RETURN 
3020  BALANCE GRAFICO . 
3030 " graica PRODUCCION / VENTAS 
3040 " ejes de coordenadas 
3050 GOSUB 3060:GOTn 3i90 
3060 CLS 
3070 GRAPHICS PEN 1 
3080 ORIGIN 140 100 
3090 DRAWR 500,0 
3100 MOVE O,O:DRAWR 0.500 
3110 FOR n 8 TO 500 STEP 8 
3120 PLOT nI:PLOT n2:PLOT n.3:PLO 
T n,4:PLOT n.5 
3130 NEXT n 
314(I FOR n-8 TO 500 STEP 8 
3150 PLOT I,n:PLOT 2,n:PLOT 3n:PLO 
T 4,n 
3160 NEXT n 
5170 LOCATE 2020:PRINT "S E M A N 
A G" 
3180 RETURN 
3190 LOCATE I9:PRINT "UNIDADES" 
3200 GRAPHICS PEN 2 
3210 MOVE 0,0 
3220 z=O: x=8 
3230 FOR n=l TO semana-i 
3240 y tprod(n) 
3250 DRAWR x  y-z 
3260 
3270 NEXT n 
3280 MOVE O,O:8RAPHICS PEN 3 
3290 z 0 
3300 FOR n 1 TO semana-1 
3310 y-trent {n) 
332(I DRAWR 
3330 z 
3Z40 NEXT n 
3350 PEN 2:LOCATE 15,22:PRINT "Prod 
3360 PEN 3:LOATE 1523:PRINT "Vent 
3370 PEN 
3380 CALL &BBIB 
3390 GOSUB 3060 
3400 LOCATE 1.9:PRINT "CIENTOS":LO0 
ATE I,IO:PRINT" DE":LOCATE I,II:PR 
INT "PESETAS" 
3410 GRAPHICS PEN 2 
3420 MOVE 0,0 
3430 z O:x=8 
3440 FOR n 1 TO semana-I 
3450 y- (tpcost 
3460 DRAWR x, y-z 
3470 z 
3480 NEXT n 
3490 MOVE O,0:GRAPHICS PEN 3 
3500 z-O 
3510 FOR n 1 TO semana-1 
3520 y tpvpn)/100)8 
3530 DRAWR x, y-z 
3540 z -y 
3550 NEXT n 
3560 PEN 2:LOCATE 15,22:PRINT "Prec 
iu de Custo" 
3570 PEN 3:LOCATE 15,23:PRINT "Prec 
3580 PEN 
3590 CALL &BBIS 
3600 GOSUB 3060 
3610 GRAPHICS PEN I 
3620 ORIGIN 140.252 
3630 DRAWR 5000 
3640 LOCATE 8.10:PRINT "0" 
3650 LOCATE 8 15:PRINT 
3660 LOCATE 85: PRINT"+" 
3670 LOCATE I, 7: PRINT"CIENTOS" 
3680 LOCATE I,G:PRINT" DE":LOCATE 
1,9:PRINT " MILES":LOCATE IIO:PRIN 

T" DE":LOCATE I.II:PRINT "PESETAS )' 
3690 MOVE O,O:SRAPHICS PEN 2 
3700 z O:x=B 
3710 FOR n I TO semana-1 
3720 y-(tingre (n) /1000001 
3730 DRAWR x, y-z 
3740 Z 
3750 NEXT n 
3760 GRAPHICS PEN 3:MOVE 0 0 
3770 z-O 
3780 FOR n I TO semana-1 
3790 y (tbene(n)/1000001%8 
3S00 DRAWR x,y-z 
3810 z y 
3820 NEXT n 
3830 PEN 2:LOCATE 15,2:PRINT 'Inr 
3840 PEN 3:LOCATE 15,23:PRINT "Bene 
3850 PEN I 
3860 CALL &BBIB 
3870 GGTO 470 
3880 ' BANCARROTA 
3890 CLS 
3900 LOCATE I , 10:F'RINT" HAS 
DEJADO LA EMPRESA EN " 
3910 LOCATE 1,12:PRINT" [[I B 
A N C A R R 0 T A 
3920 CALL &BBI8 
3930 GOTO 4220 
3940 ' BALANCE FINAL 
3950 LS 
3960 PRINT " Pasadas 54 semanas, " 
3.970 PRINT " vamos a hater cu 
entas . . . ":PRINT:PRINT:PRINT 
3980 PRINT " BALANCE FIN 
AL" 
3990 PRINT:PRINT " CONCEPTO i INI 
CIAL  FINAL 
4000 PRINT 
4010 PRINT "EFECTIVO 
4020 PRINT USING ,,##########":EFINI 
C: 
4030 PRINT " 
4040 PRINT USING "##########"EFECT 
4050 PRINT "ALMACEN I" 
4060 PRINT USING ,,##########";STII 
C 
4070 PRINT " I" 
4080 PRINT USING ,,##########":STOCIC 
4090 PRINT "FABNICA 
4100 PRINT USING "##########";FAINI 
C: 
4110 PRINT " ": 
4120 PRINT USING "##########":FABRI 
C 
4130 PRINT:PRINT:PRINT "TOTAL INICI 
AL " • 
4140 PRINT USING "###########"TOTI 
NIC 
4150 PRINT:PRINT "TOTAL FINAL = " 
4160 t o  i n EFECT+PVPSTOCK+FABR 
4170 PRINT USING "#W#W#######"totf 
in 
4190 IF totlnlc>totin THEN aS "Las 
4200 PRINT:PRINT a$;:PRINT USING "# 
#### #####" : ASS ( tot f i n-tot 
4210 CALL &BB18 
4220 PRINT:PRINT:PRINT: INPUT "]Otra 
partida 9 ",r$ 
4230 IF UPPER$(LEFT$(r$,I -"S" THE 
N RUN 
4240 END 
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Versi6n completa del 
famoso C-Hisok para 
Capacidades de E/S, ficheros 
aleatorios y modos de acceso 
binario y ASCII. Incluye 
editor ED 80 compatible 
WORDSTAR. 
15.000 
Editor Confi 
GEN ): Macros, inclusi6n en 
disco, ensamblador condicional 
manipulacibn bit a bit. MON 80: 
Monitor y debugger, puntos 
e ruptura.y presentaci6n 
memorla. 

Especial para Z-80. Deja el 
programa fuente en un 
programa directamente 
ejecutable. Incluye ED 80, 
editor compatible con 
WORDSTAR. 

total del 
MODULA-2 para 
CP/M. Comp.ilador en un 
6nico paso, listo para set 
linkado. 

Fransforme su impresora 
en una imprenta. Permite la 
impresi6n en 8 tipos distintos 
de letras; configurable para 
cualquier impresora. 

Permite trabajo directo 
sobre disco, bien en 
hexadecimal o ASCII, recu 
ficheros 
alterar y/o proteger 
directorios, todo bajo 
AMSDOS y CP/M. 
7.900 
3iseffado especificamente 
para AMS].RAD. Incluye 
]HE WAND, creador de men 
de programas, 

Permite realizar grficos 
sofisticados en su impresora. 
Grficos de pastel, histogramas 
comparativos, grficos de lineas, 
Imgenes de 9 PIXELS de 
densidad. 

,fiade a la potencia del 
programa POLYPRINT 8 
juegos adicionales de impresi6n 
a los ya existentes. 

sistema de  
MAIL-MERGE, Id6neo para 
producir circulates. Incluye 
editor. Permite la realizaci6n 
de etiq 

)lore las enormes 
del procesador 
textos NEWWORD; 
desde los fundamentos del 
textos. 

M6dulo de textos, 
preparado para ser 
empleado con nuestro 
"6ptico ESP o con las teclas de 
cursor. 

Residente en memoria, sin 
interferir en su programa 
principal le ofrece: Calculadora 
(Hex-Dec), Block de notas y 
tel&fonos, Calendario, 
Directorios, etc... 

Asigna a cada disco un 
n6mero de serie y adems • 
indexa y cataloga los ficheros 
en ese disco. 

cintas audio con 
instrucciones claras para 
rendizaje y apoyo al manual 
] tratamiento de textos 
LOSOSCRIPT. 

Nueva versi6n mejorada y 
compatible con nuestra 
tableta GRAFPAD II: Gran 
capacidad en grficos. 

iniciaci6n a los 
teclados, recomendado para 
personas no acostumbradas a 
SU USO. 

Conozca a fondo las 
posibilidades del teclado, 
escribiendo con sus diez dedos 
en lugar de s61o dos. 

los 4i 

ptas. 

9.900 VA 9.900 
no 
incluido 

DE VENTA EN LOS MEJORES COMERClOS DE INFORMATICA 
Si Vd. tiene alltuna dificultad para obtener los programas, puede dirigirse a: 
Ofites Avda. Isabel II, 16-8 ° 
Tels. 455544 - 455533 
Inform  tica Tlex 36698 
20011 SAN SEBASTIAN 
CONDICIONES ESPECIALES PARA DISTRIBUIDORES 
EDITOR Y DISTRIBUIDOR EXCLUSIVO PARA ESPAA 



Presenta: 

Inform  tica 

d l#piz que gusta decir 
mientras nuestros competidores dicen no 
UNICO PARA AMSTRAD, CON PRECISION PIXEL 

FUNCIONES ESP , . 

TRASLAO OIIF, TIS PAII'ALLA 

CAJAS ELASTICAS SI i S[ I . 
LINEA ELASTICA I SI / ,.  

TRIANGULO ELASTICO SI 
ELIPSE ILASTICO . 
DIAMANTE ELASTICO 
POLIGONO ELASTICO SI ,, t', 
HEXAGONO ELASTICO Sl 
CUBO ELASTICO 
PIRAM[DE ELASTICA Sl NO  
C]RCUNFERENCIAS S] l 
CIRCULOS RELLENOS S SI B 
CAJAS RELLENAS 
EL, RELLENAS l=rrl .. ESTOS SON 
CUIqAS S[ 

SIMULADOR DE CORTES 
DISENO DE ZOOM . S[ 
, mm _ DE LOS GRAFICOS QUE VD. 
I RILLA DE FONDO SI   | 
OION DISPY X, Y SI o   ' ODRA REALIZAR CON NUESTRO 
RELLENADO CONOLOR Sl St I 
LAVA DE COLOR I SI ] NO   LAPIZ OPTICO 
VOLCADO PAALLA RESIDEE 
TE SI SI   X'.  
9 TAMANOS DE BRHA SI NO / 
18 TOBE SI NO 
4 MCLAS BASICAS SI NO 

SI NO 

SI 
SI 
SI 
SI 
SI 
 SI 
SI 
SI 
SI 

NO 
NO 
NO 
SI 
NO 
NO 
NO 

Sl I 

DISPONIBLE PAP, A: • 
CPC 464 CASSETTE ...................... , .900 Ptas 
CPC 464-664 DISCO ...................... 6.900 Ptas. 
CPC 6128 DISCO ............................ 6.9011 Ptas. 
(IVA no incluido) 
, NDICIONES ES"CI 4 E. PA',  ISTRIBUIDORES 

E VENTA EN LOS MORES COMERCIOS 
DE INFORMATICA 
Si Vd. fiene a dculd p obtener el pk 6pfico, 
pue dM# a: 
Av l if, 16  
Ofites T,, 455-455533 
Informfitic8  9s 
2u s SSASrS 



RECIBOS 

Esta semana paso por el banco de pruebas un 
programa de Emisi6n de Recibos. AI igual que otro 
programa anterior, est6 realizado en Espao, 
presume de ser tan fcil de manejar como para no 
necesitar cam instrucciones y tombin pretende 
ser de uso general, es decir, que es v61ido para 
una variedad de necesidades y usuarios. Lean el 
anlisis, y iuzguen. 

Realizado por: Fco. Javier BarcelO 1". 

III ntes de empezar con el 
programa, hay que vet qu funciones debe 
cumplir un programa de emisi6n de recibos. 
Desgraciadamente casi todos recibimos ca- 
dames alg0n recibo. Nuestro problema es pa- 
garlo. Pero realizar un buen n0mero de reci- 
bos al met si no es problem6tico, por Io me- 
nos si resulta una tarea larga y aburrida. Sin 
embargo, para un ordenador esto es (pan 
comiao,b y bien hecho proporciona una in- 
formaci6n muy completa en poco tiempo, co- 
sa que manualmente Ilevaria mucho tiempo. 

Lo que debe tener 
el programa 

los recibos. Es importante poder registrar da- 
tos como el n0mero de Documento de Identi- 
dad, el c6digo fiscal, banco y ndmero de cuen- 
ta por si se domicilia el recibo, aparte natu- 
ralmente de los datos personales del individuo. 
Si un programa de este tipo quiere ser vdli- 
do para muchos cometidos, debe permitir va- 
rios apartados, donde desglosar el importe del 
mismo. Es evidente que cuanto m6s aparta- 
dos permita, ser6 m6s completo. Pero por otro 
lado, se debe regir en la impresi6n de los re- 
cibos por un formato estandarizado, que Io 
hay. 
Por 01timo, debe proporcionar informaci6n 
sobre el n0mero de recibos impresos, su im- 
porte y destinatario. Estas son las caracteisti- 
cas pr6cticamente imprescindiNes en todo pro- 
grama de recibos. 

Comenzando... 

La emisi6n de recibos requiere primero un 
fichero donde almacenar los clientes o abo- 
nados, en otras palabras, los destinatarios de 

Pasando ya a la descripci6n del programa 
analizado, ste viene en un disco con los pro- 
gramas en una cara, estando prevista la otra 

cara para los ficheros. Adem6s de esta cara, 
se pueden utilizar ms discos de datos. El dis- 
co viene previsto para inicializar el ordenador, 
cosa que no s61o es c6moda, sino pr6cticamen- 
te necesaria, puesto que al inicializarlo tam- 
bin establece los par6metros de la impreso- 
ra, que aseguran un correcto funcionamiento 
del equipo. La cara del disco con los progra- 
mas no permite realizar copias de seguridad 
por mtodos <mormales), precauci6n discuti- 
ble pero encaminada a evitar la pirateria. 
Adem6s viene con un n0mero de serie, y la pri- 
mera vez que se usa en el ordenador, pide los 
datos del emisor o empresa emisora de los re- 
cibos. Fstos datos no se pueden modificar ni 
se puede acceder a ellos, y figurardn en los 
listados realizados por la impresora, aunque 
no en los recibos, otra medida anti-pirateria 
que, adem6s, parece mds acertada que la 
anterior. 
La estructura del programa funciona de ma- 
nera que hay que crear una (ficha para ca- 
da cliente, y un modelo de recibo tambin pa- 
ra cada cliente, Ilevando los dos el mismo nO- 
mero. No est6 previsto poder crear un solo 
modelo de recibo que valga para todos los 
clientes, aunque los datos sean idnticos, pot 
Io queen todos los casos hay que crearse un 
recibo pot cliente. Eso si, este recibo se pue- 
de imprimir todas las veces que sean 
necesarias. 
El men0 general posee las siguientes 
opciones: 
1. Emisi6n de recibos.: Imprime los recibos 
y proporciona res0menes listados de los 
mismos. 
2. Altas.: Se utiliza para dar de alta clien- 
tes y recibos. 
3. Bajas.: Se utiliza para anular clientes y 
recibos. 
4. Modificaciones.: Permite consultar y mo- 
dificar tanto clientes como recibos. 
5. Creaci6n e inicializaci6n.: Permite crear 
los ficheros, asi como dejar los ficheros vados 
para reintroducir nuevos datos. 

Priemro 

de Febrero de 1,98p F 

Al vencimiento que se expresa pgard usted 
en el domicilio pot esta 
le ira de cam bio, m, o.o ,o  o  .,=d*____ 
a la orden de... IVA'-- 
• ' TrecienL Cumzent y lt MII 
 untdd de. ........... 
3-?,827 Pts 
Vr , , 
NI/CIF: 
vda. Matropolitana 1,115 
adrid 
8Ogg MADRID 

I0 
IA|TA 4,000 FI"A. 

0 B 9985532 



6. Finalizaci6n.: Sirve para eso. 
Analizando el programa por orden <crono- 
16gico,,, la opci6n 2, Altas, conduce a otro me- 
n0, donde se puede elegir dar altas de clien- 
tes, datos, o de ambos sucesivamente. Los da- 
tos son los apartados que ir6n en el recibo. 
Est6 previsto para hasta cuatro apartados, con 
su importe correspondiente, otro apartado pa- 
ra el famoso IVA., despus de Io cual calcula 
automticamente el importe total, y otro apar- 
tado, que aunque invita a poner e/importe en 
letras, puede ser perfectamente usado para 
cualquier otra cosa que sea necesaria. 
En cuanto a los clientes, pide el n0mero, que 
debe ser el mismo dado en los datos para que 
se imprima corredamente el recibo. Ademds, 
es opcional introducir los siguientes datos: 
nomre, domicilio, pobiaci6n, provincia, dis- 
trito, DNI/CIF, y los siguientes datos de su 
cuenta corriente: Banco, n0mero de cuenta, 
domicilio del banco, poblaci6n, provincia y dis- 
trito postal, asi como el nombre del titular de 
la cuenta, para el caso de que ste sea distin- 
to del cliente. AI finalizar de introducir los da- 
tos pregunta si se est6 conforme con ellos. De- 
safortunadamente en este apartado, como en 
algunos otros, no todos, las teclas que hacen 
retroceder el cursor en un campo o borrar una 
tecla, no funcionan, obligando en caso de 
error, a pasar al siguiente dato, y cuando pi- 
de la conformidad decir que no, pulsar intro 
en los campos que estnbien, y al Ilegar al 
campo equivocado con la tecla de cursor 
avanzar hasta el error y corregirlo. La tecla 
de avanzar el cursor si funciona, pero la de 
retrocederlo tampoco funciona al modificar. 
[Con Io fdcil que seria que funcionase la tecla 
de retroceso...!] Pero a parte de este detalle, 
la ficha del cliente es realmente completa. 
La opci6n 3. Bajas, permite dar de baja el 
diente y/o dato del que demos su n0mero. La 
opci6n 4. Modificaciones permite modificar 
los datos, siguiendo el mismo proceso que el 
de la opci6n de Altas, no permitiendo modifi- 
car el n0mero de recibo gnicamente. 
La opci6n 5. Creaci6n e inicializaci6n de fi- 
cheros, est6 prevista tanto para crear los fi- 
cheros en un disco recin formateado, como 
pora vaciar el contenido de alguno de los fi- 
cheros, en caso de que se quiera vover a in- 
troducir los datos de clientes o recibos. 
La opci6n 1. Emisi6n de recibos, es la prin- 

cipal del programa. Es la que se encarga de 
dar salida a los datos que se hayan introduci- 
do. AI seleccionarla, sale un memo donde se 
puede optar por pasar a la emisi6n direda- 
mente, o bien por pedir un resumen de todos 
o parte de los recibos. AI optar por hacer la 
emisi6n, pregunta el intervalo de recibos, es 
decir, el primer y el 01timo cliente de los que 
se quiere emitir recibos. Se emitir6n todos los 

)OH(; EL INNI.  I,£I]S Cknco miI ciento sesent 9 siete 
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recibos de ese intervalo, incluyendo esos dos. 
Una vez seleccionado el intervalo, sale otra 
pantalla que pregunta el d[a, mes, ao, y de- 
ja un espacio para escribir la fecha de naci- 
miento, o cualquier otra cosa que se desee. 
Una vez introducidos estos datos, pide la con- 
formidad y salen las opciones para numerar 
los recibos. Estas son: 

1. Inicializar contador.: Permite empezar o 
numerar los recibos a partir del ngmero de re- 
cibo que se le d. 

2. Prosigue contador.: Si la emisi6n de re- 
cibos se hate por partes, contin0a numeran- 
do a partir del 01timo recibo realizado. Si no 
se ha realizado otra emisi6n, numera a partir 
de uno. 
3. Suprime contador.: No numera los 
recibos. 
Una vez elegida la opci6n de numeraci6n, 
empieza a imprimir los recibos. AI acabar, pre- 
senta por pantalla el total de recibos emitidos, 
y la suma de los importes. Despu.s pregunta 

POBL(CION: adr id 

])ISI]IID: P,8L6 

CURIA: 

LOCfl],]3)flD: Sansotero 

DISITO: SSG 

la nidad es : 



si se desea hacer otra emisi6n, y si la respues- 
ta es posiliva empieza otra vez el proceso, vol- 
viendo al meng principal si sta es negativa. 
Por 01timo, la opci6n de emitir resumen, rea- 
liza un Ustado de los clientes pot su n0mero, 
que incluye el nombre y el importe del reci- 
bo, y al final db el total de los importes de los 
recibos. 
El recibo se imprime seg0n el siguiente 
formato: 
En la primera linea a la izquierda, el n0me- 
ro del diente, que es nuestra referencia. Lue- 
go, viene la Iocalidad de emisi6n, y por 01ti- 
mo el importe. 
La segunda linea imprime la fecha de emi- 
si6n y la fecha de vencimiento. 
La tercera linea imprime el hombre del titu- 
lar de la cuenta corriente a la la izquierda, y 
el primer apartado de gastos a la derecha. 
La cuarta linea imprime el banco de domi- 
cialiciaci6n debajo del nombre del titular de 
la cuenta, y el segundo apartado de gastos de- 
bajo del primero. 
La quinta linea imprime respectivamente la 
 recci6n del banco y el tercer apartado de 
gastos. 
La sexta imprime la ciudad y c6digo postal 
del banco, y el cuarto apartado de gastos. 
La sptima linea imprime la provincia del 
banco, y debajo de los apartados de gastos 
el IVA en porcentaje y tolal. 
La octava linea imprime el importe en letras 
del recibo o Io que se haya escrito en su lugar. 
Las siguientes lineas ponen el nombre y di- 
recci6n del cliente. 

Formato casi est6ndar 

Como se puede ver, el formato es bastante 
estandarizado, pero aunque las instrucciones 

PUSE OPCTON = II 

preveen la utilizaci6n en letras de cambio, la 
distribuci6n de los apartados de gastos, el IVA, 
y la cuenta del cliente estorban claramente en 
el impreso para este cometido. Fn las ilustra- 
ciones de este articulo aparece una letra de 
cambio en la que se han dejado en blanco a 
prop6sito la domiciliciaci6n bancaria y los 
apartados de gastos, rellenando 0nicamente 
el importe en letras. Adem6s, tambian aparece 
un recibo con todos los campos rellenos. 
La impresi6n est6 prevista para utilizar pa- 
pel continuo, con los recibos impresos. Otra 
caracteristica que convierte imprimir letras de 
cambio y recibos sueltos en una aventura, es 
que la impresora no es la m6s adecuada. AI 
situar el recibo en la primera linea, si no es pa- 
pel continuo, practicamente hay que avanzar 

ES tiFO? 5/H s 
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el papel a mano. Pero esto no es en absoluto 
culpa del programa. 

I Concluslones 

Como conclusiones, se puede decir que el 
programa funciona de manera correcta sin 
presentar problemas. Este aspecto es irrepro- 
chable. No se entiende que, en muchos apar- 
tados, no funcionen las teclas de retroceso, 
queen caso de error obligan a seguir un pro- 
ceso engorroso. No obstante, dado que se pi- 
de conformidad antes de dar por v61ido cual- 
quier dato, los errores son remediables, a cos- 
ta de un poco m6s de tiempo. La otra cosa que 
se echa en falta es la posiblidad de realizar 
un listado de los clientes en el que aparezcan 
todos los datos que figuran en sus fichas. El 
0nico listado que se puede realizar es el resu- 
men de recibos, yen aste s61o aparece el nom- 
bre del cliente y el importe del recibo. Eviden- 
temente esle listado tambian es necesario, pero 
no sustituye al otro. Por Io demas, el proga- 
ma es muy v61ido para la emisi6n de una gran 
variedad de recibos, con la 0nica limitaci6n 
de que stos no tengan m6s de cuatro apar- 
tados de gastos. Pero este n0mero de apar- 
tados parece suficiente para la mayoria de los 
cometidos. El hecho de que no se haya elegi- 
do un solo formato para todos los clientes, 
puede resultar inc6modo al principio, pero 
amplia las posiblidades del programa al per- 
mitir emitir recibos muy distintos unos de otros. 
Lo 0nico con Io que no estamos de acuerdo 
en principio, es en la validez que las instruc- 
clones le dan para realizar letras. La coloca- 
ci6n de las mismas en la impresora y los apar- 
tados que prevee el programa, hacen que esta 
labor sea complicada de realizar. A pesar de 
esto, la impresi6n final sobre el programa es 
favorable. 
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Presenta: /a tab/eta gr#fica 
GRAFPAD II- 
LO ULTIMO EN DISPOSITIVOS DE ENTRADA DE GRAFICOS 
.PARA AMSTRAD, COMMODORE Y BBC 
La primera tableta grca, de bajo costo, en ofrecer la duraci6n y prestaciones requeridas por las 
aplicadones de negodos, industria, hogar y educad6n. Es pequefia, exacta y segura. No necesita 
ajustes ni mantenimiento preventivo. GRAFPAD II es un produ¢to 6nico que pone la potenda de 
la te¢nologia modema bajo el control del usuario. 

DIBUJO A MANO ALZADA 
$oFrWARE DE ICONOS 

DISEO DE ARQUITECrURA 
ON SOFTWARE DDY 

COMBINA E UN U |CD t "* ITIVO TODAS EAS 
PRESTACIONES DE LOS INTENTOS PREVIOS DE 
MECANISMOS DE ENTRADA DE GRAFICOS. LAS 
APLICACIONES SON MAS NUMEROSAS QUE EN LOS 
 EMAS DISPOSITIVOS COMUNES E INCLUYEN: 
• lecci6n de opcion. • entrada de model,. • ecogida de 
dat,. • ,iflo 16gico diseflo de circuit, • • .ci6n de 
imigen. • almacenamiento de im,'lgenes • recuperaci6n de 
imigenes • disefio para construcci6n • .A.D. (," ifo asistido 
pot ordena,or) • ilustraci6n de texto • "uegos • disefio de 
muestras • educaci6n • disefio PCB 

ESPECIFICACIONES 
RESOLUCION: 
1.280 x 1.024 pixels. 
PRECISION: 
1 pixel. 
TASA DE SALIDA: 
2.000 pares de coordenadas por 
segundo. 
INTERFACE: 
paralelo. 
ORIGEN: 
borde superior izquierdo o 
seleccionable. 
DIMENSIONES: 
330 x 260 x 12 mm. 
DISPONIBLE AMSTRAD: 
CASSETTE .... 23.900 ptas. 
DISCO ............ 25.900 ptas. 
(IVA NO INCLUIDO) 
• FACIL DE USAR. 
• TRAZADO PCB. 
• C.A.D. 
• AREA DE DISEglO DIN A4. 
• COLOR EN ALTA 
RESOLUCION. 
• USO EN HOGAR Y 
EGOCIOS. 
• VARIEDAD DE PROGRAMAS 
DISPONIBLES. 
•  IBUJO A MANO ALZADA. 
• D-' [-'u-', D ,tttlllOS. 

DE VENTA EN LOS MEJORES COMERCIOS DE INFORMATICA 
Si Vd. tienc alguna dificultad para obtcner la tableta grdfica, puedc 
dirigirse a: 
Av, .. sabel II, 6 -:" 
Ofites 0. 455544-455533 
Informtica aex 398 
20011 SAN SEBAST 

CONDICIONES ESPECIALES PARA DISTRIBUIDORE 



upongamos que 
se trata de crear un programa, ('/ro- 
cedimiento, si queremos) que al ser 
ejecutado, presente en pantalla los 
diez primeros nOmeros naturales y 
sus cuadrados. 
Es preciso advertir que 
tiene herramientas ms adecuadas 
para resolver este tema, que las que 
se presentan en este trabajo. Tam- 
bi6n podemos pensar, y con acierto, 
que otros lenguajes de programa- 
ci6n resuelven el problema de mane- 
ra m6s c6moda. Recordemos que se 
trata de practicar sobre cuestiones 
ya comentadas, avanzar sobre elias, 
y fundamentalmente sobre sus apli- 
caciones. Profundizar sobre RECUR- 
SlVIDAD) es necesario para el que 
desee que LOGO) sea algo m6s que 
una incursi6n accidental en este mun- 
do de los lenguajes de programa- 
ci6n. Merece la pena. 
Sin m6s pre6mbulos, vamos a ello. 

El procedimiento principal es: 

Comentario 
to tab. cuad Para la tabla de 
cuadros. 
introd. Procedimiento previo. 
elev. cuad: nOmero. Procedimiento 
eiecutor. 
end. Marca fin proced. 
principal. 

El procedimiento Ilamado <<introd 
es el siguiente: 

to introd 
ct. pr. [tabla de nOmeros y cuadrados] 
make: nOmero 1 
end. 

ALGO MA$ 
$OBRE RECUR$1VIDAD 

En nOmeros anteriores, hemos presentado peculiaridades del 
lenguaje (LOGO), apoyadas con ejemplos. 
Se ha escrito $obre modularidad, recursividad y variables. 
Hemos visto aplicaciones de estas caracterfsticas, centradas 
casi exclusivamente en el sector de LOGO, que m6s 
impacto suele producir en las personas que habituadas al 
lenguje BA$1C, tienen la op.ortunidad de poder trastear el 
LOGO) de Amstrad, por elemplo. Nos referimos a los 

(GRAFI¢OS DE LA TORTUGAh 
En esta ocasi6n, presentamos un ejemplo, que abundando en 
las estructuras tratadas anteriormente, nos introduce en una 
utilidad de aplicaci6n al c61culo. 

Est6 constituido por las tres lineas 
intermedias. La primitiva ct (clear 
text) ordena que todo el texto con- 
tenido en pantalla, se borre en el co- 
mienzo de la ejecuci6n del progra- 
ma. La siguiente primitiva pr), or- 
dena la escritura de algo que toda- 
via no conocemos, Ilamado distah 
AI ejecutarla, se obtiene la expresi6n 
encerrada entre corchetes. Servir6 
como cabecera. 
La siguiente instrucci6n, manda im- 
primir una linea en blanco. (mejora 
la presentaci6n). 
La Oltima de las tres, asigna a la 
variable: nOmero el valor 1. Tiene 
cOr ob eto que el primer multiplica- 
or de a tabla, sea el citado nOme- 
ro. 
Por fin, vamos con el Oltimo de los 
procedimientos invocados por el 
principal. 

to elev. cuad: nOmero 
if: nOmero + 10 [stop] 
make cuadrado: ngmero*:ngmero 
(pr: ngmero []: cuadrados) 
elev. cuad.: nOmero+l 
end 

Este es el procedimiento clave 

Su tercera linea, asigna a la va- 
riable cuo nombre es cuadra- 
do, un vauor obtenido como resul. 
tado de multiplicar el valor de nO. 
mero, pot s; mismo. (:nOmero) es 
Io mismo que valor de la varia- 
ble nmero)), en la sintaxis de 
LOGO>. 
La siguiente linea escribe en 
pantalla, el contenido de :ngme- 
ro queen principio le fue asigna- 
do, es decir 1. 
A continuaci6n, una sucesi6n de 
caracteres "--", cuyo objeto es 
mejorar un poco la presentaci6n 
de la salida del programa, una 
vez ejecutado. 
En la misma linea imprimir6: 
cuadrado, es decir el valor de la 
variable citada, ya asignado en la 
linea anterior. 
La siguiente, es la cl6sica forma 
de la recursividad. El procedi- 
miente se llama a si mismo. La en- 
trada :ngmero+ 1 incrementa en 
una unidad el valor de :nOmero, 
para al fin volver al comienzo del 
procedimiento. Ahora :ngmero 
vale 2. 
La segunda linea del procedi- 
miento que nos ocupa, ser6 igno- 
rada mientras el valor de :nOme- 
ro no sea superior a 10. 
Cuando a consecuencia de la 
recursividad y del incremento reo 
petido de :ngmero, se entre en 6s- 
ta linea su ejecuci6n pondr6 fin al 
programa. 
V6ase la tabla resultante de la 
ejecuci6n, obtenida por impreso- 
ra. 
;.Sera posible reconocer en to- 
do esto la estructura de bucle? 
Id pensando en algo parecido 
para hacer dibujos con la tortu- 
ga. Seguiremos. 

icoor AMSTRAD   
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ercado comun 

Con el objeto de fomentar las relaciones entre los 
usuarios de AMSTRAD, MERCADO COMUN te ofrece sus 
paginas para publicar los pequefios anuncios que 
relacionados con el ordenador y su mundo se ajusten al 
formato indicado a continuaci6n. 
Fn MERCADO COMUN tienen cabida, anuncios de 
ventas, compras, clubs de usuarios de AMSTRAD, 
programadores, yen general cualquier clase de anuncio 
que pueda servir de utilidad a nuestros lectores. 
Enwanos tu anuncio mecanogrcfiado a: HOBBY PR|$$, 
AMSTRAD SEMANAL. 
Apartado de correo. 54.062 
28080 MADRID 
• IABSTENERSE PIRATAS! 

Desearia contactar con usuarios de Amstrad CPC 
664/6128 para la compra-venta o intercambio de 
programas comerciales preferentemente en disco. 
Interesados dirigirse a: Joaquin Matin Pastor, c/ 
Avda. Meridiana, 487, G-2 11-1. a. 08016 
Barcelona, o telefonear al (93) 350 74 45 
preguntando pot Joaquin. 
Vendo: Curso de iniciaci6n al Basic. Temas: 
Introducci6n a la inform6tica: Los ordenadores. 
Sistemas de numeraci6n y sus conversiones. 
Representaci6n de los datos num6ricos. 
La unidad central de procesos. 
Memoria principal. La memoria y su constituci6n. 
Almacenamiento de la informaci6n. 
Lenguajes de programaci6n y sus tipos. 
Soportes y unidades perif6ricas. 
Ficheros y registros. Concepto. Clasificaci6n. 
Estudio del lenguaje de programaci6n Basic. 
Ficheros en Basic. 
Ficheros secuenciales y al azar. 
Prctica de manejo de ordenadores e impresora con 
arreglo a la tecnologia correspondiente. Escribir o 
Ilamar a: Juan Herrero S6nchez. Urbanizaci6n Vera 
S/N 1. ° . Sarri (Lugo). Tel. (982) 53 11 77. 
Desearia intercambiar programas para Amstrad 
464. Interesdos mandar lista a Antonio P6rez 
Asc6riz. C/del Franco, 2, 4-E. 27003 Lugo. 
Yendo juegos para Amstrod a 300 Ptas. cada 
uno, entre ellos, KNIGHT LORE, RAMBO 3D 
GRAND PRIX, SORCERY, MATCH DAY, AIRWOLF, 
etc. 
Interesados Ilamar al tel6fono (93) 354 71 15 o 
escribir a: Oriol L6pez Massaguer, c/ Caameras, 
32, 2. ° . 08016 Barcelona. 



£S "EG CON MICROBYTE. 

ju .. P jET 

Trasldate a los aSos 
cuarenta, segunda 
guerra mundial. Ponte 
a los mandos de un 
caza Spitfire de la 6po o 
ca y siente t0 mismo la 
sensacin de volar y 
combatir en aquellos 
aparatos donde la peri- 
cia del piloto era el no- 
venta y cinco por cien- 

' o / 

to del xito. $61o tu sangre fria y habilidad te salvarn ,. 
del desastre. 

JUMP JET 
<3 ANIROG 
Vive la aventura de pi 
Iotar un Harrier. Teen 
cuentras en la cubiert. 
de un portavions e 

medio del ocano. Tienes que despegar vertical- 
mente, alejarte de la nave y, de repente, te encon- 
trar&s solo en el aire, sin ver otra cosa. que agua 
hasta que aparezcan los aviones enemigos dis- 
puestos a destruirte. Defindete, lucha por la 
supervivencia.., iiiELLOS O TU!!!. 

P.V.P. Cassette, 2.200 Pts. Disco, 2.900 Pts. 

P.V.P. Cassette, 2.200 Pts. Disco, 2.900 Pts, 

/ 

P.ROD.UCE V 
DISTRIBUYE 

," CASIELLANA, 179-1. ° - 28046 MADRID TeN, 442 54 33J44 



ercado comun 

Can el abjeta de famentar los relacianes entre los 
usuarias de AMSTRAD, /vlERCADO CO/vlUN te afrece sus 
p6ginas para publicar los pequeas anuncias que 
relacianados con el ordenador y su mundo se ajusten al 
formata indicada a continuaci6n. 
Fn MERCADO COMUN tienen cabida, anuncios de 
ventas, cornpras, clubs de usuarios de AMSTRAD, 
programadores, yen general cualquier close de anuncia 
que pueda servir de utilidad a nuestras lectores. 
Envianos tu anuncio rnecanogrofiado a: HOBBY PR|$$, 
AMSTRAD SE/ANAL. 
Apartado de correos 54.062 
28080 MADRID 
• iABSTENERSE PIRATAS! 

Vendo cinta juego <RAID nueva, para ordenador 
Amstrad CPC 464. Precio a convenir. Llamar al Tel. 
(91) 717 74 73 preguntar por Sergio Mejias 
S6nchez. 

Vendo Iotes de 5 programas (originales) a 2.500 
Ptas. y uno solo a 600 Ptas. Tengo entre otros: 
Exploding Fist, Beach Head, Raid Over Moscow, 
Knight Lore, Sorcery, 3D Grand Prix, Comando, 
Starstraike, 3D Voice Chess, Rambo, etc. Interesados 
escribir a Josd Maria Crespo. C! Jaime Fabrd, 2, 
10.°-1. a. 08019 Barcelona o Ilamar al Tel. 
(93) 305 69 28. 

Intentamos formar un club de Usuarios Amstrad 
para Lugo y provincia. Interesados escribir a Carlos 
NOfiez Fidalgo. Avda. 18 de Julio, 158, 2. ° Izqda. 
27004 Lugo. 

Ofrezco monitor en color Amstrad a cambio de 
monitor en f6sforo verde Amstrad m6s diferencia. 
Interesados Ilamar al Tel. (954) 62 62 88 de Sevilla 
o escribir a Le6n Carlos Alvarez Riao, C/Genaro 
Parlad6, 2, 2.°-A, esc-izq. 41013 Sevilla. 

Amstrad (464, 664 6 6128). Con monitor f6sforo 
verde o color. 
Interesados ponerse en contacto con Pedro 
Gonz61ez L6pez, C! Antonio Machodo, 31, 5.°-2. a. 
08033 Barcelona. 

297318 

A usted, minorJsta, y con s61o marcar este 
tel6fono, le concedemos Io que siempre ha 
esperado de su mayorista inform&tico. 

Todas la$ marca$, Amstrad, Spectrum, 
Commodore... para que con una sola 
Ilamada, usted tenga todo Io que 
necesita. 

Rapidez en el servi¢io. Le entregamos 
su pedido en 24 horas, sin demoras y 
-n cualquier punto de EspaSa. 

Trato directo. Mantenemos un contacto 
ontinuo con usted, nos preocupamos 
por sus problemas y le ayudamos a 
,.olucionarlos. Queremos que usted se. 
. g, m. qu- u liente. 

-i "- t..[: .ue pide m.yorist. 
LAMENOS 

--- LISTRI#UCION 

N RO 

San Marcos, 39-41, 3. ° 
28004 MADRID 

CUMPLIMOS 
SUS DESEOS 



Test dei minorista 

• Conteste si o no a 1as siguientes preg0ntas: 

e todas 1as marcas Y modelos - 
•/, nustaria disponer d, .... car un telfono? 
J 1. rnform&tica con sO|o m, __-- -,,-, 
de .,,,--- ------- S1 

• n el servicio un factor importante a la 
2. .Es la ra.pldez e ..... " ta inform&tico? 
horade eleglr a su nly ''s $1_-- NO 
• rado comO algo m&sque 
de menos ser c.onse,recto v continuado? 
3. 6Echa recibir un trato nlo ,, 
 un cliente SI NO 

• Soluci6n: Si ha contestado si a todas las preguntas, con- 
siga hacer realidad sus deseos Ilamndo a este telfono: 

4297318 

DISTRIRUCION 

INTROZIN.s. c u m p li m os 
San Marcos, 39-41, 3. ° 
28004 MADRID 
sus deseos 
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E1 programa de gestldn de Eml)resa RPA Systems es un clare ejernplo de Io,, " 
debe ser una solucidn Infonntica, 
Una herramlenta eficaz que hace ms fcll la tarea de la Gestitn Empresarial, 
huyendo de innecearias complicaciones. Porque para obtener el mxlmo 
rendimiento de los programas RPA Systems no es necesario aber programar. 
Con un lenguaJe compilado de alto nivel y continuas ayudas en pantallas, so mu 
fciles de usar. Come el programa de Gestldn de Empresas que.dlsetlsdo para 
traba/ar con los Amstrad 8256, 6128 y 8512,incluye los subprogramas de: 
• Centabilidad General,'Ndminas, Fac(uracin. Fichero .de clientes y proveedores 
Si es Usted pequeo o dlediano empresario en RPA Systems encontrard una 
eficaz ayuda para la clasificacidn y control de cllentes, reallzacldn de facturas. 
totalizacidn de cobros y pages, generacidn de ndminas y contabilidad aJustada al 
plan general contable. 
Ademds, el programa de gestidn de empresa de RPA Systems permite Ilevar un 
pertectd control de la aplicacldn del IVA. 
RPA Systems es la respuesta eficaz a sus necesidades de informatiz,ldn, 
Asi de sencillo. 
SOLICITE INFORMACION EN: 
D_ivisldnInormMtca de £C.a, . Division On-line de GALERIAS 
Tiendas especializadas en informal/Ca y Equlpos de oficlna. 

Dlst#buidor exclusive en Espata: / :-' I :] :11 f-' kJ lllCe] 
Galileo, 25. Enlreplanta A. Tels. ,47 97 51 / 98 0,9. 28015 MadWd. 
Distrlbuidor exclusive e.n Catalunya?  DISTRIBUCION, S.A 
Tarragona, 112, Tel. (93) 325 15 12. 08015 Barcelona, Telex: 93133 AGEE E 



